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I. INTRODUCTION 



A. BACKGROUND 

Many designs for local area networks are currently available on the 
commercial market, however, all are designed to provide -for sharing o-f 
high performance centralized assets such as -file servers or relatively 
scarce resources such as specialized printers; or -for the movement o-f 
data and files. None are known to provide a distributed processing 
capability by using the inherent capabilities of the attached 
microcomputers or processors under the control of a central master 
computer . 

The purpose of this thesis is to demonstrate such a capability in a 
laboratory environment, utilizing a network of slave or server 
microcomputers capable of running separate applications programs under 
the control of a central or master mi crocomputer . 

B. PROJECT DESCRIPTION 

1. Target Hardware 

The proposed demonstrati on network consists of a single master 
IBM PC compatible mi crocomputer connected to two IBM PC or IBM PC/AT 
compatible slave mi crocomputers under the operational control of the 
central master. 



1 



2. Network Topology 



The proposed demonstration network is a small star network, 
with the master mi crocomputer as the central node. 

3. Network Media 

The proposed networking media shall be the standard RS-232C 
serial communications port provided with each mi crocomputer . The 

central mi crocomputer is augmented with a second RS-232C serial port to 
allow independent communications with both slaves. 

4. Software 

a. Operating System 

The operating system selected for the mi crocomputers 
shall be Microsoft MS-DOS, version 3.0 or later, as supplied with each 
microcomputer . 

b. Programming Language 

All applications software for the mi crocomputer control 
programs was originally intended to be written in RR Software Inc. 
Janus/ADA. The actual implementation is in Borland Turbo Pascal, 
version 4.0. 

5. Proposed Capabilities 

a. File Transfer 

The master mi crocomputer shall be able to initiate 

program and data file transfers to and from any of the connected slave 
microcomputers. 

b. Distributed Processing 

The master mi crocomputer shall be able to command the ' 



execution of selected programs resident on any slave mi crocomputer , 



receive an acknowledgment of the command from the slave, and receive 
the text output of the selected program after execution. 

c. Control of Multiple Slave Microcomputers 

The master mi crocomputer shall be able to control more 
than one slave mi crocomputer . 

d. Remote Login 

The master mi crocomputer shall be able to remotely log in 
to any slave mi crocomputer and operate it remotely over the 
commu.ni cati ons network. 

e. Error Handling 

The master and slave mi crocomputers shall attempt to 
restore communications to resume control in the event of a. fault. 

C. STRUCTURE OF THE THESIS 

Since standardized mi crocomputers and operating systems were 
selected, the majority of this thesis consists of the programming 
effort to create the network control programs, and the source code for 
those programs. What follows will describe the design considerations 
predicated by the choice of hardware, operating system and programming 
languages; a description of the significant problems encountered; and 
instructions for duplicating the network along with program operation 
and maintenance. 

Chapter II will describe the programmer's model of the hardware 
utilized in the mi crocomputers and interrupt driven serial 

communication considerations. Chapter III will discuss the essential 
features of the operating system as they contributed to the thesis. 



Chapter IV will describe the salient features of the two programming 
languages considered, and the reasons for selecting a replacement for 
Janus/ADA. Chapter V will discuss the implementation from a systems 
viewpoint with a brief description of each software module. Chapter VI 
summarizes the conclusions reached from this thesis. 

The appendices provide detailed descriptions of the program source 
code, the source listings, an operator's manual, a guide to program 
maintenance, and the bi bl i ography . 
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1 1 . HARDWARE 



A. THE IBM PC/AT PERSONAL COMPUTER 

The IBM PC/AT personal computer and its close compatibles, such as 
the Zenith Z-248 adopted as the standard Navy desktop personal 
computer, were selected as the target hardware for both program 
development and application. These computers are general purpose, and 
typically have at least 640K of random access memory for operating 
system and program execution, one or more floppy disk drives handling 
5-1/4 inch diskettes with 360K bytes of storage each, a hard disk drive 
holding from ten to twenty megabytes of storage, and a monochrome or 
color monitor displaying 80 characters by 24 lines of text. One 
RS-232C serial interface is standard, and a second is optional. The 
computer also comes with a parallel printer port. The following 
hardware features are of interest to aid in understand! ng the software 
developed: (Norton, 1985, pp. 19-65) 

1. The Central Processor Unit 

The programming model of Table 2.1 is common to the Intel 
8088, 8086 and 80x86 series of mi coprocessors used in the IBM PC/AT 
compati bl es . This information is not provided to support assembly 
language programming (there is very little in this implementation), but 
for interface considerations to control, read from, write to, or obtain 
the status of the IBM PC hardware in support of the distributed 
processing network. The usage of specific registers for software 



interrupts is defined Dy calling conventions similar to the formal 



parameter declarations for procedures and functions in higher level 
languages such as ADA. 



TABLE 2.1 

MICROPROCESSOR REGISTERS 



Register Type Function 



Scratch Pad Registers: 


Arithmetic and data transfer 


AX 


Accumul ator 


Arithmetic operations 


BX 


Base 


Table pointer 


CX 


Counter 


Repetition loop 


DX 


General 


General purpose 


The 


above registers may also 


be addressed as eight bit pairs, i.e., 


register AX may also be utilised 


as AL and AH for the low and high 


order 


bits. 




Segment Registers: 


Separate code, data, stack and an 






extra segment 


CS 


Code Segment 


Locates the code segment in memory 


DS 


Data Segment 


Locates the data segment in memory 


SS 


Stack Segment 


Locates the stack segment in memory 


ES 


Extra Segment 


Intersegment transfers 


Index 


Regi sters: 


Relative offset from a segment 

regi ster 


IP 


Instruction 


Points to next instruction to be 




Poi nter 


executed 


SP 


Stack Pointer 


Points to next available location on 
stack 


BP 


Base Pointer 


Offset into the stack segment 


DI 


Destination Index 


String data transfers 


SI 


Source Index 


String data transfers 


Control Functions: 




Flags 


Flag Register 


Used to record processor status 



information 
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2. Interrupts 

Interrupts serve two -functions in the IBM PC: hardware 
interrupts allow a peripheral to request servicing -from the CPU, and 
so-ftware interrupts allow the operating system or applications so-ftware 
to obtain services -from the hardware. So-ftware interrupts are 
generated by a machine instruction. In either case, a so-ftware or 
■firmware interrupt service routine must be called to process the 
request. The originator o-f the interrupt does not need to know the 
address of the routine that accomplishes the service, since the IBM PC 
incorporates a powerful feature designed to minimire limitations in the 
inherent design. A level of indirection is designed into the interrupt 
architecture of the microcomputer that facilitates redefining the 
interrupt service routines without rewiring the hardware or changing 
firmware. This is accomplished through a table of interrupt vectors 
reserved at the first 1024 bytes of system memory. Each of tne 256 
vector locations is a four byte pointer initialised to point to a 
specific function by its location in the table. These functions 
support hardware and software interrupts generated by the CPU (for 
fault processing), the hardware (for peripheral service), or the 
operating system or application program (for higher level services). 
Control is passed to an interrupt service routine by utilising the 
vector at the location assigned to that function to cal 1 the service 
routine. By reassigning these vectors through the operating system, 
the interrupt service routines normally found in the microcomputer 
firmware may be substituted by another portion of ROM, the operating 
system or the application program itself. 
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As an example, the dynamic assignment of interrupt services 
was utilized to obtain interrupt driven character receive functions in 
the distributed processing network. Two hardware interrupt vectors 
pointing to interrupt service routines for the communications ports are 
assigned to the interrupt vector table at offset $0B for port two 
(logical port COM2) , and at offset TOC for port one (logical port 
C0M1). The distributed processing program developed for this thesis 
reassigns the indicated vectors to point to interrupt service routines 
contained in the thesis program itself. These vectors are restored to 
their previous values on program termination. (Edwards, 1987, p. 195) 
3. Communications Ports 

The IBM PC is inherently capable of handling up to seven 
communications ports, but typically is fitted with only two at 
standard! zed hardware addresses: logical ports COM! and COM2. These 

are capable of data rates ranging from 110 to 38,400 baud; however the 
microcomputer ROM Basic Input Output System (BIOS) servicing the ports 
is only capable of setting speeds up to 9600 baud through service 
interrupt $14. This service interrupt was also replaced by the 
application program to set the ports and achieve a finer degree of 
control over their operation than afforded by the BIOS or the operating 
system. Table 2.2 is correct foi- - an IBM PC (or Zenith Z-248) fitted 
with two ports (Edwards, 1987, p. 231): 
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TABLE 2.2 



Register 



Transmit Holding 



Receive Buffer 



Interrupt Enable 



Line Status 



Modem Status 



COMMUNICATIONS PORT ADDRESSES 
C0M1/C0M2 

Address Function 



$3F8/*2F8 



$3F8/*2F8 



*3F9/$2F9 



$3FD/*2FD 



*3FE/*2FE 



Contains the 8-bit character to be 
transmitted by the port. This is a 
write only register. 

Contains the byte most recently 

received by the port. This is a read 
only register. 

A 4-bit register that enables the 
serial port to generate interrupts to 
the computer when any of the 

following events occurs. 

Bit 0: Interrupt when data are 

available to be received. 

Bit 1: Interrupt when the transmit 

holding register is empty. 

Bit 2: Interrupt when the line 

status register changes 

state. 

Bit 3: Interrupt when the modem 

status register changes 

state. 



Provides information about the status 
of data transfer. 

Bit 0: Data, ready to be received. 

Bit 1: Overrun error 

Bit 2: Parity error 

Bit 3: Framing error 

Bit 4: Break detected on the line 

Bit 5: Transmit holding register is 

empty 

Bit 6: Transmit shift register is 

empty 

Bit 7: Always zero 

Contains the status of the modem 
si gnal s 

Bit 0: Delta clear to send 

Bit 1: Delta data set ready 

Bit 2: Trailing edge ring indicator 

Bit 3: Delta line signal detect 

Bit 4: Data set ready 
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Line control 



Modem control 



$3FB/$2FB 



*3FC/*2FC 



Bit 5: Data set ready 

Bit 6: Ring indicator 

Bit 7: Receive line signal detect 

Used to con-figure the data 
communications parameters. 

Bits 0 - 1: Word length (bits): 

0 = 5 

1 = 6 

2 = 7 

3 = 8 



Bit 


2: 


Stop bits: 
0 = 1 
1 = 2 


Bit 


3 s 


Enable parity 


Bit 


4: 


Select even parity 


Bit 


5 : 


Mark/space parity select 


Bit 


6: 


Generate BREAK signal 


Bit 


7: 


Divisor latch access 



Allows access to the signals used to 

communicate with a modem 

Bit 0: Data terminal ready 

Bit 1: Request to send 

Bit 2: Out 1 

Bit 3: Qut2. Must be set to enable 

UART interrupts 
Bit 4: Loopback 



4. Programmable Interrupt Controller (PIC) 

Another programming requirement involved enabling the IBM PC 



hardware to recognize receive character interrupts generated by the two 
UARTs. All hardware interrupts are prioritized -for the CPU by a device 
called the Programmable Interrupt Controller. The Intel 8259 
Programmable Interrupt Controller is capable of prioritizing up to 
eight interrupts, identified as IRQO through IRQ7, with IRQO being 
assigned the highest (preemptive) priority. The programming 
requirements are to set the appropriate mask bits in the Interrupt Mask 



Register of the PIC, and to send an End Of Interrupt command to the , 



device following completion of the interrupt service routine supplied 



by the thesis program. Communications port one is assigned interrupt 
vector IRQ3 (bit 3), and communications port two has IRQ4 (bit 4). The 
8259 can be instructed to recognise or ignore interrupts from a 
peripheral by clearing or setting the appropriate bit in the Interrupt 
Mask Register located at I/O port $21 , and this feature was utilized to 
disable ports when not in use. End Of Interrupt commands are sent to 
I/O port $20. This relationship is summarized below (Greenberg, 1987, 
pp. 46-50): 

TABLE 2.3 

PROGRAMMABLE INTERRUPT CONTROLLER ADDRESSES 
Register Address Function 



Interrupt Mask $21 Contains the mask for the currently 

enabled interrupts (read/'write) 

Bit 3: IRQ3 - Com port 2 mask. 

Clear to enable the port 
i nterrupts 

Bit 4: IRQ4 - Com port 1 mask. 

Clear to enable the port 
i nterrupts 

In Service $20 Write to the same bit as enabled in 

the Interrupt Mask register to clear 
the interrupt. 
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III. THE OPERATING SYSTEM 



Microsoft MS-DOS version 3.21 was provided with the mi crocomputers 
used in this thesis, and provides the traditional functions expected in 
an operating system: high level interface for applications programs, 
file services, memory management, and input/output services (MS-DOS 
Reference Guide, 1986, pp. 2.3 - 2.9). The use of a standard operating 
system was desirable, as i t allowed a piece of "trusted" software to be 
utilized for most of the distributed processing functions while 
providing a. familiar environment for the operator. Certain extensions 
to the operating system were constructed in software, to facilitate the 
execution of programs on the mi crocomputers and to complement the 
extensions in hardware services discussed earlier. These are discussed 
bel ow. 

A. BACKGROUND 

MS-DOS interfaces directly with the hardware implementation 
dependent portion of the IBM PC compatible mi crocomputer , the ROM Basic 
Input Output System (BIOS). Recall that this BIOS provides a logical 
interface and some low level services for the underlying hardware, 
including the disk drives, serial communications ports, keyboard and 
video display. The ROM BIOS also accomplishes the i ni ti al i zati on of 
the IBM F'C on power up. The ROM BIOS services remain available to the 
programmer through interrupt service calls. (Norton, 1985, pp. 44 
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45 ) 



The portion of MS-DOS that interfaces with the ROM BIOS is 
contained in a file called 10. SYS, located on the media supplied with 
the operating system. This file contains extensions and in some cases 
replacements to the ROM BIOS services supplied with the computer such 
as device drivers for mouse input devices or specialized video displays 
not available when the design for IBM PC compatibles was standardized. 
On initialization, 10. SYS substitutes the replacement interrupt service 
routines for the existing ROM BIOS services by simply changing the 
interrupt table vectors to point to the new routines in memory. This 
facility allows the manufacturer to tailor a standard operating system 
to various hardware manuf acturer ' s mi crocomputers. A caution on the 
means to change these interrupt vectors is noted below. (MS-DOS 
Reference Guide, 1986, pp. 2.5 - 2.6) 

The next file loaded is MSDOS.SYS, which provides hardware 
independent services for the operating system, i.e., high level 
interface for file services, memory management, and input /output 
services. This portion includes the handler for a class of service 
requests, called DOS function requests, utilized in the distributed 
processing program to load and execute programs external to the 
operating system and input/output redirection to implement the 
capabilities cited in Chapter I. (MS-DOS Reference Guide, 1986, 
pp. 2.4 - 2.5) 

The last portion of the operating system loaded is COMMAND.COM, 
which builds on the previous layers to provide the familiar command 
line interpreter and MS-DOS resident commands such as COPY and DIR. 
(MS-DOS Reference Guide, 1986, pp. 2.7 - 2.9) 
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The use of function calls to change the interrupt vector table 
providing ROM BIOS, 10. SYS and MS-DOS interrupt services is strongly 
encouraged by Microsoft to prevent accidental or malicious corruption 
of data structures within the operating system and the vector interrupt 
table. It is also intended to allow backward compatibility for future 
releases of the operating system that may include multitasking. 
(MS-DOS Reference Guide, 1986, p. 6.3) 

B. CHILD PROCESSES 



The ability of the 


operati ng 


system 


to 


spawn a local process 


and 


regain control after 


execution is 


a.n 


essenti al 


element 


of 


the 


distributed processing 


network. 


MS- 


-DOS 


Function 


Request 


4BH 


i s 



utilized to load another program into memory and begin execution. 
Programs executed from the Command. Com command line prompt are executed 
as child processes of the operating system in exactly the same way. 
This function provides for the execution of programs and for the remote 
login capability required by the network. Several details of the 
MS-DOS operating system capability were of interest in this thesis. 
(MS-DOS Reference Guide, 1986, pp. 3.1 - 3.9) 

1. Program Segment Prefix 

When a child process is created, the MS-DOS operating system 
finds the lowest available segment address to use as the 'start of 
program memory for the spawned process, and builds a 256 byte control 
block called the Program Segment Prefix (PSP) at offset zero within 
that segment. The executable program immediately follows. While, 
Microsoft does not officially document the use of certain fields within 
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the PSP, sufficient information was collected from the MS-DOS Reference 
Guide and other sources to manipulate the environment created for the 
child process to accomplish the goals of the distributed processing 
program. 

a. Interrupts to be Restored on Program Termination 

The interrupt vector table pointers for three essential 
interrupts are placed in fields of the PSP of the spawned process prior 
to execution. These are restored on program termination to insure that 
the interrupt vector table is not corrupted should the child process 
replace the vectors for its own use and then terminate abnormally. 
These are; The Terminate Handier Address containing the address of the 
operating system routine that accomplishes program termination; the 
Control -C (also known as Control -Break) Address containing the address 
of the operating system routine that handles operator induced program 
termination; and the Fatal Error Handler Address used to process errors 
that result in fatal program halts. (MS-DOS Reference Guide, 1936, pp. 
3.5 - 3,9) 

b. The Environment Segment Address 

The PSP contains a. field that holds the segment address 
of the system environment. This environment is a. series of ASCII 
strings that may be used by programs to determine permissible 
operations or values. These strings take the form variable = value, 
and are terminated in a. zero (0) character. An example is the "PATH =" 
environment variable used to set the search paths used by the command 
processor Command. Com to locate an external command. The process' 
current environment is made available by following this segment pointer 
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and searching the strings found at that address until a string with a 
second terminating zero character is found. This facility is used by 
the thesis program to locate a copy of the Command. Com on disk to run 
batch programs (Edwards, 1987, pp. 286 - 288). Each child process 

inherits a copy of the environment pointed to by the segment address of 
its parent. This means that the child process may manipulate its own 
environment without disturbing that of its parent. It also means that 
the parent may manipulate its own environment prior to spawning a child 
process in order to communicate with the child or to restrict certain 
environmental parameters from the child, although this communications 
means is not reversible. (MS-DOS Reference Guide, 1986, pp. 3.6 - 3.7) 
c. File Handle Table 

When the PSP is constructed, the operating system places 
a copy of all open file handles in a. data structure of the type 
FILEHANDLE = ARRAY Cl.. 20 3 OF BYTE in the PSP (Greco, 1987, p. 25). 
Each word in the table indexes another data structure internal to the 
operating system that contains information needed to locate the file on 
the disk system (s). This inheritance has the effect of passing all the 
open files of the parent to the child. A file handle is a Unix style 
16 bit word that is used to identify a file or a device known to the 
operating system, and replaces the use of CP/M compatible File Control 
Blocks for file references by the operating system (Simrin, 1988, 
p. 204). File handles allow the use of pathnames to open or create a 
file. Once opened, the file handle is returned to the calling program 
as the reference to the file. The first five files are opened by the 
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operating system and have special meaning: (MS-DOS Reference Guide, 

1986, p. 5.9) 



TABLE 3-1 

MS-DOS RESERVED FILE HANDLES 



File 

Handle Mnemonic Purpose 



0 Stdln Standard Input 

1 StdOut Standard Output 

2 StdErr Standard Error 

3 StdAux C0M1 

4 StdF’rn Printer 

d. Redirection 



Function 



Input can be redirected 
Output can be redirected 
Output cannot be redirected 
I/O cannot be redirected 
I/O cannot be redirected 



Redirection refers to the ability of the input or output 
character stream associated with one of the reserved files above to be 
rerouted to or from a different file. An example of this function is 
the use of redirection characters on the command line (<, >, >>, or !), 
when program output is redirected to a file or pipe, as in the command 
line entry: PROGRAM > FILE. Wher the operating system opens the 
Standard Error file, it is directed to the same device as the Standard 
Output file, the display console (logical device driver name CON), and 
cannot be redirected on the command line as indicated in the table. 
This limitation would prevent vital error information from being 
redirected from the slave mi crocomputer display to the master 
microcomputer display. (MS-DOS Reference Guide, 1936, p. 3.8) 

While such redirection cannot be performed from the 
program command line, MS-DOS provides function calls that overcome this 
limitation. These are MS-DOS function calls 45H, Duplicate a File 
Handle (DUP) , and 46H, Force a. Duplicate of a Handle (FORCDUP) . DUP 
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creates a new -File handle that re-ferences the same -file at the same 
position as an existing -File handle. It does so by referencing the 
same internal data structure for the file in the operating system for 
both files. FORCDUP takes as input two file handles, but forces the 
first file handle to refer to a file referenced by a second handle. 
The file referenced originally by the first handle is closed (Simrin, 
198S, pp. 450 - 452). To accomplish redirection of the Standard Error 
character stream and overcome the limitation of the operating system 
cited in III.A.c above, the parent process may use the following 
procedure (Greco, 1987, p. 26): 

Open the file that Standard Error will be redirected to 



for writing. 

Save a. pointer to Standard Error using DUP. 

Force the Standard Error handle to point to the newly 
opened file using FORCDUP. This closes Standard Error. 

Close the handle created in (1) since it is no longer 

needed . 



The child program may now be spawned, and has no 
knowledge of the redirection. Upon termination of the child, the 
parent reverses the above process: 

Force the Standard Error handle to point back to Standard 
Error by using FORCDUP and the , saved pointer. 

This redirection method is used for both Standard Error 
and Standard Output to interleave the two output streams into the same 
file. A more direct method is to directly manipulate the file handles 
in the File Handle Table of the Program Segment Prefix, however, this 
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violates the strictures mentioned in the beginning o-f this chapter and 
could corrupt the data structures contained in the operating system if 
improperly done. The use of documented -function calls allows the 
operating system to protect itself and to provide error handling. 

C. PROGRAM TERMINATION 

Upon termination of the spawned program, the operating system 
accomplishes the following (MS-DOS Reference Guide, 1986, p. 4.241). 
First, the three interrupt vectors described above are restored to the 
interrupt vector table from values stored in the terminated process' 
PSP. Next, control is given to the Terminate Handler address to return 
control to the invoking process. Finally, all open files are closed. 
Recall that the calling program retains a copy of all open files in its 
own PSP. The effect of closing all the files of the child is to flush 
file buffers held internal to the disk operating system and update the 
disk directories (Defenbaugh, 1986, p. 22). The operating system then 
terminates any redirection. 
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IV. THE PROGRAMMING LANGUAGE 



Implementation of this thesis was originally attempted in a subset 
of the Department of Defense programming language mandated for mission 
critical computer resources, Ada. Ada was chosen to explore the 
language in this environment and to apply the language features that 
localize the major design decisions into individual program modules 
(decomposition), promote information hiding through separate 
compilation, and support data abstraction. Concurrency might have 
allowed the separation of the communications and control requirements 
into separate tasks, but was not supported in the subset. (MacLennan , 
1987, pp. 261 - 263) 

The subset of the Ada language chosen for this project was RR 
Software Inc. JANUS/Ada. This subset of the approved language had 
several limitations in addition to the lack of concurrent programming 
(task) facilities, but was available and could be utilized on the same 
microcomputer for program development and i mpl ementati on . It had been 
used successfully in a similar environment for local area networking 
(Works, 1986), (Hartman and Yasinsac, 1986), and includes a very 
capable assembler for constructing machine language packages. It 
turned out that this particular implementation was unsuitable to the 
proposed capabilities of the distributed processing network for the 



reasons cited below. 



A. JANUS/Ada 



1. Memory Size Limitations of Compiled Code 

The initial work for this thesis was to construct a command 
line parser to recognize commands in MS-DOS syntax for execution on the 



slave microcomputer . 


This was first implemented in assembly language 


following the program 


of an established command intercept processor 


(Mefford, 1986, pp. 


313 - 334). This program successfully parsed the 


elements of a command 


line and reported these components, thereby 



demonstrating the potential to execute the command remotely. The code 
files of table 4.1 resulted. Files ending in a "jrl" suffix are 
compiler relocatable object files and files ending in a "com" suffix 
are the linked result suitable fcr execution. 





TABLE 4.1 

ASSEMBLY LANGUAGE PARSER 


F'rociram Name 


La.nquaqe File Size (bytes) 


f ind_com. jrl 
parsemai .jrl 
parsemai . com 


assembly 791 

Ada package 148 

compiled 4480 



The parser was then recoded as an Ada. package to obtain the 
flexibility of the higher order language and to develop the assembly 
language to Ada package interfaces. JANUS/Ada allows assembly language 
procedures to call Ada procedures and functions, and to reference Ada 
data structures. The implementation of the parser as an Ada package 
allowed rapid modification to the parser to adjust the command syntax, 
as well as for interface to the other Ada packages to be developed for 
the system. When compiled, however, the following resulted: 
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TABLE 4.2 



Ada LANGUAGE PARSER 



Program Name 



Language 



File Size (bytes) 



Int_21. jrl 
cmdl yne. jrl 
main . jrl 
main. com 



assembly 

Ada 

Ada 

compi 1 ed 



948 

13656 

505 

42423 



The cost of coding in this implementation of JANUS/Ada is 



evident above. The JANUS/Ada compiler emits about a tenfold increase 
in code size to accomplish the same effort as the assembly language 
version. The COM file is also much larger, due to the i ncorporati on of 
library routines from the JlibB6 support package to handle string 
manipulation and other high level language constructs. With a code 
size limitation of 64K bytes, results similar to the above would 
rapidly exhaust the space available in the small memory model as 
packages were added. This model is limited to 64 Kbytes of code and a 
separate 64 Kbytes of data (JANUS/Ada Package User Manuals, 1983, 
p. Z - 4) , and is characteristic of COM files running under MS-DOS. 
The options were either to code major portions of the thesis in 
assembly language as had been done by Works, Hartman and Yasinsac, 
linked together by Ada packages as a main program, or to find a way to 
expand the code module. The latter was desirable due to the original 
intent to utilize a higher level language for the distributed 
processing network. Before this could be pursued, however, a more 



serious problem developed. 



n 



Failure of the Child Process Call 



As described in Chapter III, MS-DOS commands or programs not 
implemented internally by the operating system are called transient 
commands, and must be run by loading the program into memory -from disk 
and executing it as a child process. As the next step in the above 
implementation, a call was constructed in an assembly language package 
body to the MS-DOS function 4BH, EXEC program (MS-DOS Reference Guide, 
1986, pp. 4.237 - 4.239). This was done to overcome a limitation of 
the JANUS/Ada supplied procedure, Prog_Call. The supplied procedure 
recognizes only program names without path speci f i cati ons , and does not 
allow for a command tail after the program name. The procedure also 
terminates both the child process and its parent if the child process 
terminates abnormally. This would not allow for a robust distributed 
processing system, capable of recovering from a faulty child program 
and continuing to operate in the network (JANUS/Ada Package User 
Manuals, 1983, p. 15-3). 

When this approach was implemented, however, all child 
processes would execute normally when called from the MS-DQS function, 
as expected. The system would lock up upon return of control to the 
parent process, usually with a fatal error message such as INTERNAL 
STACK OVERFLOW. This suggested that something was being corrupted in 
the MS-DOS operating system upon termination of the child program. 

An investigation of a disassembly listing of the compiled 
program revealed that the JANUS/Ada runtime library was writing 
initialization data into reserved areas in the Program Segment Prefix 
of the parent program. These areas are undocumented by Microsoft in 



its official literature, but have been identified by other authors. 



Table 4.3 shows these locations: (Simrin, 1987, p. 211 - 212) 

TABLE 4.3 

JANUS/Ada INITIALIZATION AREAS 



Location 


Contents 


PSP: 0016 


PSP of parent process 


PSP: 00 1C 


Standard Printer file handle <f i lehandleC4]) 


PSP: 00 IE 


f i 1 ehandl eC6] 


PSP: 0020 


f i 1 ehandl eCB] 


PSP: 0022 


f i lehandleC 10] 


PSP: 0024 


f i 1 ehandl eC 12] 


PSP: 0026 


f i 1 ehandl eC 14] 



Since the f i leha.ndles are indices to data structures internal 
to the operating system holding information about specific open files, 
the consequences of these actions are that the compiled program 
unintentionally creates open fi leha.ndles after the Standard Printer 
handle assigned by MS-DOS, or overwrite the filehandles for files 
already opened by the parent program. Recall that MS-DOS opens the 
first five handles, and the application program opens filehandles after 
that up to the FILES = <nu.mber> set in the environment. When the 
JANUS/Ada program overwrites these handles, the indices represented by 
them now point to other potentially unrelated areas of the operating 
system for files referenced by the file handles. These other areas may 
then be corrupted when the operating system attempts to close the child 
process' files using invalid file handles. These data structures are 
common in the operating system to both parent and child. This may 
explain why the JANUS/Ada built in file operations and functions would ' 
no longer work after a. single assembly language call to operating 



system function calls, as observed by Works (Works, 1986, p. 24). 
Works wrote all file handling procedures for his program in assembly 
language to overcome this fault. (Works, 1986, p. 33) 

The effect of corrupted data areas in the operating system is 
to compromise the internal state of MS-DOS when the child process 
termi nates. 

3. Need for a Replacement Language 

At this point, a decision was made to implement the thesis in 
a language that would support child processes and provide a larger 
memory model . 

B. TURBO PASCAL 

While performing the initial work for this thesis, Borland 
Corporation Turbo Pascal version 3.0 was being examined for the 
possible use of a construct similar to its operating system calls. The 
language utilizes a very general procedure to call MS-DOS functions and 
software interrupts with a data structure standing in for the contents 
of the microprocessor registers discussed in Chapter II. With such a 
procedure constructed for the JANUS/Ada language as a supporting 
package, the large number of assembly language procedures and functions 
that Works, Hartman and Ya.sinsac required could be abstracted out to a 
single general purpose procedure, tailored for each instance by the 
register contents. 

When the difficulty encountered with the failure of child processes 
in JANUS/Ada, a rapid prototyping effort was used in Turbo Pascal to 
check the author's understanding of the requirements for the EXEC call 



in another language to detect possible errors in implementation. The 
EXEC -function worked sati s-f actor i ly in Turbo Pascal, using either the 
MS-DOS call construct or the compiler's built in procedure. Since the 
Ada implementation appeared to be in-feasible, the program was 
implemented in Turbo Pascal . It turned out that version 4.0 o-f that 
language has -features that capture the essence o-f the original 
programming objectives. Some particular features follow: 

1. Information Hiding 

Borland's Turbo Pascal version 4.0 implements the Unit as 
originally developed for UCSD Pascal (Duntemann, 1987, p. 11). This 
programming construct allows modular programming very similar to Ada, 
however separate compilation cannot be achieved with just the module 
interface declaration, as it can in Ada. Variables and procedures 
implemented in the UNIT body are not visible by outside modules, as in 
the Ada package. 

2. Support for Child Processes 

Turbo Pascal provides a robust implementation of the MS-DOS 
Function 4BH. called EXEC. This is a high level procedure that takes 
Pascal strings for the program path specification and the command tail 
arguments as parameters. The procedure utilizes the Turbo Pascal 
global variable DOSError to report operating system error messages for 
program handling. 

3. Data Abstraction 

Turbo Pascal supports data abstraction in much the same way as 
Ada, but does not implement a Private declaration. 
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4. 



Unit Initialization 



The Turbo Pascal Unit provides an i ni ti al i zati on section -for 
Units, which can be used to perform unit conf i gurati on and to save 
state information prior to program execution. This is helpful for 
saving interrupt vector table contents for restoration on program exit. 

5. Unit Exit Procedures 

Turbo Pascal provides an important feature by allowing the 
programmer to declare an exit procedure that will be run upon program 
termination. This procedure will execute for normal or abnormal 
termination, and can be constructed to provide error handlers. The 
primary use in this thesis was to insure that interrupt vectors were 
properly restored on program termination. 

6. Absolute Variables 

Turbo Pascal supports manipulation of hardware memory 
locations by allowing the programmer to specify the actual location in 
memory of a data structure. This is accomplished by the ABSOLUTE 
reserved word in a VAR declaration, and was used to declare a pointer 
to reference the video memory for windowing operations (Edwards, 1987, 
p. 30). 

7. File Input and Output 

Turbo Pascal provides the capability to read or write to 
untyped files in addition to Wirth's Read and Write procedures. This 
allowed the file transfer protocol to treat a file as a stream of 



bytes. 



8 . 



Port Read /Write 



Turbo Pascal provides Port and Portw procedures to read or 
write byte and word sized variables to the IBM PC ports. This 
capability was used in the serial communications port module. 

9. Interrupt Service Routines 

The Turbo Pascal compiler has a special reserved word, 
INTERRUPT, that allows the programmer to define procedures as interrupt 
service routines. The compiler handles all register preservation and 
stack operations across the call. 

10. Exception Handling 

Turbo Pascal does not implement the Ada exception handler, 
however, the combination of the DOSError variable and the ability to 
relax I/O, range and type checking within a local scope allows the 
programmer to place the exception handling mechanism in the control 
flow with standard structured programming techniques. An EXIT 
procedure with a scope identifier would have been useful to escape a 
procedure, however, the current approach enforces structured 
programming. 

11. High Level Software Interrupt Procedure 

Turbo Pascal provides a predefined procedure, MSDOS, and a 
data type, registers, that allows a simple and standardized interface 
to the operating system software interrupt function calls. The 
registers data type stands in for the processor's built in registers 
and allows the programmer to treat the MS-DOS functions in the same- 
manner as a procedure. No assembly language programming is involved. 
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12. ROM BIOS and Hardware Interrupt Procedure 

The above procedure, MSDOS, is a special case of the general 
Turbo Pascal procedure, Intr (Intr, regs) , which allows access to any 
hardware or software interrupt available on the IBM-PC compatible 
mi crocomputer . No assembly language programming is involved. 

13. Support for a Larger Memory Model 

Turbo Pascal compiles programs into EXE files, and greatly 
expands the potential size of a program. Each unit has an independent 
code segment, with a maximum size of 64 Kbytes. A single data segment 
and stack segment is allowed, each with their own 64 Kbyte limitation. 
The remainder of memory, up to 640 Kbytes, is available on the heap. 
The stack and heap size may be set by compiler directive to leave room 
for spawned processes. (Duntemann, 19S7, p. 12) 

C. IMPLEMENTATION 

The distributed processing program was implemented in Turbo Pascal 
4.0, as described in the next chapter. This language provided support 
for ail proposed capabilities while eliminating the requirement for 
extensive assembly language programming. 
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V. THE IMPLEMENTATION 



The distributed processing program in this thesis has its origins 
in an existing terminal program supporting the Xmodem protocol 
(Edwards, 1987, pp. 220 - 275). This "brassboard" program served as 
the foundation for the addition of the command transfer functions that 
were required by the proposed capabilities of the distributed 
processing network, and was expanded to provide finer control over 
multiple serial ports. In addition, command parser and local execution 
modules were added for the Slave mi crocomputer to execute resident 
programs. The operator interface and windowing environment was largely 
retained intact, and is utilized for the man machine interface. 

This approach allowed the referenced program to be modified in 
discrete steps, and provided a test environment to exercise each 
portion of the implementation listed below. 

A. THE HARDWARE CONFIGURATION 

The hardware used to implement the distributed processing network 
consists of IBM PC/AT compatible mi crocomputers. Each Slave 
mi crocomputer is supplied with a hard disk drive of 10 megabytes or 
greater capacity, 640 Kbytes of memory and one RS-232C port. The 
Master microcomputer is configured identically, except it has an 
additional communications port. 

The serial connection between computers are the RS-232C 
communi cations ports operating at 9600 baud for IBM PC/AT compatible 



machines and 4800 baud -for IBM PC/AT compatibles. The mi crocomputers 
at each end of a single link must be configured for the same speed. 
The pin connection for the interconnecting cables is shown at Figure 
6.1. For mi crocomputers with the nine pin AT style connector, a nine 
pin to RS-232C 25 pin DB-25 cable is recommended, with a NULL modem in 
between. Hardware handshaking is turned back in this conf i gurati on . 
The program will operate satisf actori ly through a modem if the baud 
rate is lowered. (Flanders, 1989, p. 252) 

FIGURE 5. 1 

SERIAL PORT CONNECTIONS 



Computer 1 

Pin Function Pin 



Signal Ground 
Transmit Data. 
Receive Data 
Request to Send 
Clear to Send 
Carrier Detect 
Data Set Ready 
Data Terminal Ready 



Computer 2 

Pin Pin Function 



7 Signal Ground 

3 Receive Data 

2 Transmit Data. 

5 Request to Send 

5 Clear to Send 

8 Carrier Detect 

6 Data Set Ready 

20 Data Terminal Ready 




B. SOFTWARE CONFIGURATION 

1. The Operating System 

The operating system is supplied with the mi crocomputers , and 
is Microsoft MS-DOS, version 3.0 or higher. 

2. The Distributed Processing Program 

The distributed processing program was written to accommodate 
the above operating system, and is used on both the Master and Slave 
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mi crocomputers. 



3. 



ZCOPY File Transfer Program 



A high speed, adaptive file transfer program is provided with 
the distributed processing system software that allows file transfers 
to be executed at the maximum speed permitted by the serial 
communications link. The maximum speed is 115 Kbytes/second. The 
program runs as a child process under the distributed processing 
system, and includes independent error checking protocols. (Flanders, 
1989, p. 282). 

4. Software Maintenance 

a. Configuration 

Configuration is accomplished by a built in function in 
the program, provided the program was initialized as a Master. This 
normally suffices to set default conf i gurati on options, such as port 
settings, for automatic loading when the program is run. The settings 
are saved in a file. If the file is erased, the program initiates its 
default settings and the operator can then recreate the file. 

b. Software Modification 

Software modification is accomplished through built 
in editing, compilation, and run time environment supplied with Turbo 
Fascal version 4.0. Build and make utilities are supplied with the 
compiler to allow program modification and rebuild. 

C. SYSTEM DESIGN 

The problem of designing a distributed processing network was 
decomposed into the following efforts: 

1. The command parser for the remote (slave) mi crocomputer . 



2. The execution of child processes. 

3. Redirection of child process output. 

4. File and command transfer via Xmodem. 

5. Serial communications. 

6. The man machine interface. 

1. The Command Parser 

The command parser decomposes an MS-DOS command directed to 
the Slave microcomputer for execution into its component disk drive, 
path, command or executable file name, and command arguments. The 
latter is commonly called the command tail. Since compatibility with 
the current MS-DOS command syntax was desired, these commands take the 
form: 

[dr i ve: 1 C \ 3 Cdi rectory\ ] . . Cdi rectoryN 1 command [command tail] 
Once parsed, the type of command is determined so that the Slave 
computer can execute it properly. As an experiment, the Unix commands 
CAT and LS are mapped into their MS-DOS equivalents to demonstrate a 
Slave with limited bilingual capabilities. 

2. The Execution of Child Processes 

Once the command is parsed, the parser must properly determine 
if the command cited is a command normally executed internally by 
MS-DOS, an executable COM or EXE file, or refers to a directory 
operation. Internal MS-DOS commands implemented within the distributed 
processing program are detected by pattern matching, the remainder are 
identified by conducting an iterative search across the specified 
directory (or the current directory if none is cited in the remote 
command) for an executable file of the appropriate extension, utilizing 



the Turbo Pascal built in -functions Find_First and Find_Next. I-f 
■found, the type of file is passed by the parser to the appropriate 
execution routine. The executable files are those with COM, EXE or BAT 
extensions. MS-DOS does not require the operator to enter the 
extension, and will execute the first file encountered with the command 
name and an executable extension in the following order: COM, EXE and 

BAT. The parser copies this trait. Implementation of the different 
command types is summarized below, 
a. Internal Commands 

Internal commands are those that are executed within the 
MS-DOS command processor, and are available from the familiar Ax- 
prompt. These include the directory manipulation commands ChBir, Copy, 
Del, Dir, MkDir, Ren, RmDir and disk drive login; to which were added a 
prompt command to obtain the current directory on the Slave 
microcomputer for display at the remote, and Equip, which provides the 
Slave conf igu.ration (disk drives, memory, etc) accessible to the ROM 
BIOS interrupt $11 (MS-DOS Version 3.21 User's Guide). ChDir, MkDir, 
and RmDir along with Prompt are provided within the distributed 
processing program. Error messages are supplied from the MS-DOS 
operating system, hence, they are identical to those encountered in 
local operations. Rather than duplicate the capabilities of the MS-DOS 
command processor for the remaining commands, MS-DOS is utilized to 
assist in this effort. A secondary copy of the MS-DOS command 
processor is located by inspecting the "COMSPEC=<path/name>" string 
from the local environment area, and is spawned with the appropriate- 



command tail for the desired command. This allows the remote command 



to execute as if it were entered from the Slave microcomputer 's 
keyboard, and provides a familiar response. A utility program in the 
public domain was utilized as a programming template to detect the 
proper course of action before spawning a child process, depending on 
the type of command received. (Mefford, 1988, pp. 321 - 336) 

b. External (Executable) Commands 

External commands are those that require the distributed 
processing program to load, execute and collect output for display. 
These are the familiar COM, EXE, and BAT files found in directory 
listings. These commands are executed by calling the Turbo Pascal EXEC 
procedure directly from the distributed processing program, with the 
explicit path specification required by the procedure supplied by the 
parser in its search for the executable file. The command tail is 
provided from the parsing operation. Batch files are handled by 
spawning a secondary copy of the command processor with the batch file 
name as the command tail, as described for selected internal commands. 
(Mefford, 1988, p. 327) 

3. Redirection 

Redirection control is contained in a separate module that 
contains most of the Turbo Pascal EXEC calls. Prior to spawning an 
executable file, a variable is checked to determine if the program 
output is to be redirected to a. file managed by the distributed 
processing program. This file is used to send the program output back 
to the Master mi crocomputer over the communications channel by the 
Xmodem protocol after execution of the program cited in the remote 
command. The variable is managed by the module i ni ti 1 i zati on routines 



and is normally set -for redirection, otherwise the program output would 
appear on the Slave mi crocomputer screen. If redirection is desired, 
the distributed processing program redirects its own output to the 
redirection -file, utilizing the MS-DDS Function Calls 45H (DUPlicate 
handle) and 46H (F0RCDUP1 i cate handle) as described in Chapter III. 
Since the child process inherits all open -Files -From the parent (in 
this case the distributed processing program) , it proceeds through the 
execution oblivious to the redirected output. Error reports are also 
available in the redirected output -File, which overcomes a limitation 
o-F redirection invoked -From the command line with the <, >, >> and ! 
symbols. The appropriate -Files are then available to -Forward to the 
Master mi crocomputer . (Greco, 1987. p. 25) 

4. File and Command Transfer via Xmodem 

Since the Xmodem protocol is utilized for both command and 
data transfer, the highly modularized approach found in (Krantz, 1985, 
pp. 66 - 89) is implemented to handle synchroni zati on , packet transfer, 
and file transfer under flow control in a hierarchical manner. The 
modular approach does require a large number of variables that are 
global in scope to the different building blocks, however, the 
concentration of these variables and their associated function and 
procedure implementations in a Turbo Pascal Unit as private variables 
preserved information hiding. An additional file transfer program, 
Zcopy, is available as an operator option on the Master display and 
allows the use of an adaptive protocol that transfers files at the 
maximum speed of the communi cati ons link, regardless of settings. 



5. 



Serial Communications 



All communications between the Master and Slave mi crocomputers 
are handled by the microcomputers standard serial communications ports. 
Communi cati ons is at 9600 baud -for communications between IBM PC/AT 
compatibles, and at 4800 -for IBM PC compatibles. The interrupt service 
routines handle receive character streams -for hardware ports C0M1 and 
COM2, and are adapted -from source listings posted on the 
in-fo-pascal@vim.brl.mil network (Kimura, 1988) and (de Boer, 1988). 
Receive characters are queued in a receive bu-f-fer -for each port. 
Transmit characters are sent under program control in a polling loop. 

6. Man Machine Interface 

The program uses the same operator interface for both the 
Master and Slave conf i gurati ons. Initialisation is accomplished from a 
configuration file in the local directory or from default constants if 
the file is absent. When initialized, the program presents a terminal 
screen for the primary port with communications inhibited. The 
operator is then able to select options by special key combinations 
(Alt-keys) to revise the configuration file, initialize communications 
ports, enable and disable receive interrupts on a port basis, and 
select the current port for use with file transfers and command 
transfers to the connected slave. File, command transfers, and the 
output of the remote Slave computer is available on a monitor window. 
Status windows are shown for critical parameters. 

The Slave mi crocomputer is operated in an infinite loop to 
receive and process commands. Local operation may be restored (at the 



37 



cost of disabling server functions) by pressing a local key which 
aborts the Slave program. 

D. DESIGN CONSIDERATIONS 

1. Assembly Language 

Assembly language is used in only two locations in this 
thesis, for the purposes of code optimization. The first is to move 
data between the screen buffer and a storage location to open and close 
windows on the screen as used in the windowing module. The second is 
to enable and disable CPU interrupts for the interrupt service routines 
contained in the data communications module. Both instances utilize 
built in assembly language facilities of the compiler. The remainder 
of the program is coded in the Turbo Pascal dialect. 

2. ROM BIOS Software Interrupts 

Calls are made to the ROM BIOS of the IBM PC compatible 
computers to perform communi cati ons port speed initialization 
(interrupt T14) , and to obtain the machine disk drive, memory, and 
communications port configuration for display (Til). 

3. Memory Management 

Memory management is handled by the Turbo Pascal compiler 
in accordance with the TM compiler directive. This was adjusted from 
that offered by the Turbo version 3.0 to version 4.0 conversion 
utility, which allocated all memory to the distributed processing 
program. By reducing the size of the heap, child processes and MS-DOS 
shells can be run from the program as a parent. The primary consumer 
of heap memory is for dynamic allocation of memory to save screen 



displays -for windowing. Current program memory requi rements are less 
than 75 Kbytes, exclusive of the MS-DOS operating system and any 
Terminate and Stay Resident programs run before the program. The use 
of Terminate and Stay Resident programs is not recommended due to 
unpredi ctabl e side effects. 

4. Synchronization 

Synchronization is normally maintained by starting the Slave 
mi crocomputer in the command receive mode and then executing in an 
endless loop. The Master computer operator must initialize the 
communications ports (if required) and connect to the appropriate port 
to access the desired Slave. Commands are normally passed to the Slave 
and responses displayed on the Master, however, if the Master computer 
is redirected to another task while the Slave is processing the 
request, the Slave will wait on the Master with its response. This is 
a. functionality of the Xmodem protocol, which is receiver driven. A 
resynchronizati on command is available to the Master operator to force 
the Slave back into the command receive mode if required. The process 
is currently manual , and depends on operator familiarity with the 
likely Slave responses. Adequate, although not necessarily automated, 
status responses are available to the Master operator to determine the 
Slave state. 

5. Modular Programming 

The windowing support unit, the Xmodem file and command 
transfer protocol , and the RS-232C serial communications port and 
interrupt service routines are contained in separate units. In the 
case of the Xmodem unit and the data communications unit, the original 
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terminal program interface is retained although the implementation is 
considerably different. This was intentionally done to create the 
potential to provide a different transfer protocol or to use a 
different network by redesigning the implementation section of the 
unit, and to demonstrate information hiding. The windowing unit was 
simply converted to a Turbo Pascal unit (Edwards, 1987, pp. 50 - 98), 
along with a general support unit (Edwards, 1987, pp. 66 - 73). 

6. Preservation of Interrupt Vectors on Program Termination 

The manipulation of the vectors in the IBM-PC interrupt vector 
table provides a powerful means to enhance the capabilities of the 
machine, whether to incorporate new hardware or to adapt an existing 
capability in software. The potential is equally high to lose control 
of the system if the interrupt vectors are not restored when the 
program ends. This must be handled for normal termination as well as 
unplanned, or abnormal termination. 



E. SYSTEM EXECUTION 

1. Initialization 

The program contains all functions for operation as either a 
Master or Slave mi crocompu.ter on the distributed processing network. 
The operating selection is made when the program is run, either by 
Distrib Master 

for operation as a master, or by 
Distrib 



or 



Distrib Server 
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•for operation as a Slave. The program than searches -for its 
conf iguration file and uses that to set the default communications port 
settings, screen colors, etc. If not found, the program utilises built 
in defaults. 

2. Slave Operation 

Slave operation is automatic, with the program initializing 
its communications port (default is normally C0M1), and entering the 
command processing mode in an infinite loop. This loop may be reset by 
the remote Master if the Slave is expecting to return a sequence of 
responses from a. completed command, and the Master operator decides to 
abandon the command after execution. In this case, the Slave is reset 
over the communications port to the beginning of the command receive 
loop to prepare for the next command. The program is aborted and 
control is returned to the operating system if any key on the Slave 
keyboard is depressed. No warning is sent to the Master , since the 
Master may be communicating with another Slave and receive buffers are 
purged to begin a new communications sequence as recommended in the 
Xmodem protocol. The Master operator can check for a "live" Slave by 
watching for the received NAK characters, displayed each five seconds 
over the receive channel, or enter receive mode to display a program 
response from the Slave. 

3. Master Operation 

Master operations are menu driven. Upon initial ization , the 
Master displays a status bar showing the current communications port 
selected at the bottom of the screen and queues the operator to depress 
the HOME ley for a list of commands available. The program otherwise 
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displays a. blank terminal screen although the communications ports are 
disabled for receive on startup. When the operator depresses the HOME 
key, a window appears that offers the following command selections with 
a menu bar that can be positioned to select the desired command. The 
operator is also reminded that the listed commands may be selected from 
the terminal screen by depressing the Alt - <key> combination. The 
commands are: 



Alt-A 


Change drive & path 


Alt-B 


Send a Break signal 


Alt-C 


Update Config File 


Alt-D 


Dialing Directory 


Alt-E 


Local echo toggle 


Alt-F 


Change DC params 


Alt-B 


Show disk directory 


Alt-H 


Hang up phone 


Alt-L 


DOS Shell 


Alt-M 


Activate Master 


Alt-P 


Port Operations 


PgDn , 
Alt-R 


XMODEM Bet a file 


Alt-S 


Activate Server 


PgUp , 
Alt-T 


XMODEM Put a file 


Ait-X 


(ESC) Exit emulator 



A more complete discussion of the different commands is found in 
Appendix A, the Operator's Manual . The following is a. summary of 
capabilities, as seen from the Master microcomputer. 

a. Terminal Operations 

The opening screen of the program is adequate to perform 
teletype terminal communications over the currently selected 
communications port, once properly initialized. The i ni ti al i zati on 
commands are found in the Activate master subscreens. 
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b. 



Port Initialization 



The menu selections available allow the operator to 
override the default communications ports settings and to select a 
communications port for communications with the remote Slave. An ESC 
key returns the operator to the terminal screen. 

c. Remote Login to Slave 

Most operations are accomplished at the Slave by using 
the remote login function. The command is packetized at the Master and 
sent to the Slave as a 12S byte Xmodem packet. Upon successful receipt 
at the Slave (signalled by an ACK character received at the Master), 
the Master then assumes the Xmodem receive function to await the 
response from the Slave. The Slave then sends a packet back with a 
prompt containing its current directory and drive. This prompt is 
structured to look like the operating system prompt. Once received by 
the Master, the Slave reverts to command receive mode to await the next 
command. The Master displays a window to prompt the operator for the 
next command to send to the Slave, or to quit the command mode. If a 
command is sent, it is packetized and transmitted as before. 

d. Remote Program Execution 

Programs are run on the Slave microcomputer in response 
to commands received from the Master. Once the command is parsed, the 
program handles some commands internally and runs a program as a child 
process to accomplish those commands it does not recognize internally. 
For spawned programs, the program output is captured in a file and then 
sent back to the Master. The Master waits for the response after 
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sending the command. Responses may be a series of strings or files, 
and are displayed on the Master remote login window. 

e. Flow Control 

Flow control (selection of receiver and sender) is in 
accordance with the Xmodem protocol, with one exception. An EOT (End 
of Transmission character is specified in that protocol to signal a 
complete transmission. In order to accomplish multiple string or file 
transmission from the Slave to the Master to forward the output of a 
spawned program, the Master interprets each received EOT character as 
an end of transaction (string or file) as in the original protocol , but 
does not end its receive operations until a CAN character is received 
from the Slave to signal the end of the command and response sequence. 

f . Remote Reset 

Related to flow control is the ability for the Master 
microcomputer to reset the flow direction if the Master and Slave 
microcomputers lose synchronization. This may happen between the 
command transfer to the Slave and the response from that microcomputer, 
and is usually exhibited by both microcomputers attempting to send or 
receive at the same time. The Master operator may break the deadlock 
by sending a series of CAN characters to the Slave to force it back 
into the command mode. 

g. File Transfer 

To send a file, the operator selects the ZCDF'Y option to 
the remote mi crocomputer and the system prompts for a filename. A 
complete path may be specified. Once selected, the program invokes a' 
copy of the ZCOF'Y program at the Slave and places it in ZCOF’Y Server 
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mode. The Slave then waits -for the handshaking protocol -from the ZCOF'Y 
program at the Master (also spawned), and establishes a link over the 
serial port at the maximum reliable data rate. Once the transfer is 
complete, both copies of ZCOPY terminate and control is restored to the 
distributed processing program at the established data rates. The 
Slave then reports the ZCDF'Y program output to the Master. 

F. THE MODULES 

The following program modules are contained in the distributed 
processing program. 

1. Distrib 

Distrib is the main program for both the Master and Slave 
computers. 

2. DataCom 

Unit DataCom provides all procedures and functions needed to 
initialize the computer serial communications ports, enable and disable 
receive interrupts, provide buffered reception of characters, clear the 
receive buffer(s), send or receive bytes through the ports, send a 
BREAK signal over the RS-232 port, and nondestructi vel y read the 
receive buffer(s). It supports Unit Xmodem and the terminal portion of 
Distrib. The currently selected communications port is contained in 
public variable Current_Com. 

3. Director 

Unit Director is a set of functions and procedures that allow 
the output MS DOS file directories to a windowed environment. Masking 
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options and a selector -for normal or abbreviated (similar to the MS-DOS 
/w switch) displays are allowed. 

4. ErrorCod 

ErrorCod is a array of string constants mapped by the DOS 
Error Code, Error Class, Recommended Error Action and Error Locus 
indices found in (Microsoft, 1986, pp. 3-1 - 3.11, 4.254 - 4.255). The 
unit is used by the units Parser, Spawn and the program Distrib to 
report errors. A procedure is also provided to retrieve extended error 
code information available in MS-DOS versions 3.0 and above by DOS 
function call 59H. 

5. General 

The General Unit is a collection of general purpose routines 
that support the Wndow Unit and other modules. (Edwards, 1987, pp. 
66 - 73) 

6. MiscPack 

Unit Miscpack is a collection of data types and utility 
routines supporting these other units: Xmodm, Parser, Spawn, Redirect, 

and the main program Distrib. The strong typing features of Turbo 
Pascal require that instances of data types in different units that 
must be equated be declared in one place to be compatible at compile 
time. (Swan, 1986, pp. 14-23) 

7. Parser 

Unit Parser contains a central procedure, Parser_Main, which 
attempts to parse and execute an MS-DOS style command on the local 
machine. The remaining procedures and functions support this function. ' 
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8. Redirect 



Unit Redirect is a set of functions and procedures that allow 
the output of programs spawned under the Slave computer's copy of the 
main program Distrib to be redirected to files. Once the program ends, 
the Slave computer can then forward the output normally displayed on 
the screen to the Master computer for display. 

9. Spawn 

This Unit detects commands that should be processed internally 
by the Distrib program, and executes commands internally or by spawning 
a child process. Command output and error responses are returned to 
the caller either as strings suitable for conversion to Xmodm packets, 
or by reference to files containing the text. This unit also contains 
the redirection switch as a public variable that dictates whether 
program output will be redirected to a. file or displayed locally on the 
screen. This switch is normally set to redirect to file. 

10. Support 

The Support Unit contains most of the constant declarations 
for the program, along with the initial i zation procedure some general 
purpose procedures as found in the original terminal program. 
(Edwards, 1987, pp. 241 - 272) 

1 1 . Wndow 

The Wndow Unit provides all window creation, memory 
allocation, display, menu bar processing, closure and memory 
deallocation functions for the program Distrib. The unit was changed 
from an include file to a unit, but not otherwise changed from that 
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originally developed by the author in (Edwards, 1987, pp. 50-98). 
purpose descriptions are from the author. 

12. Xmodm 

This Unit handles all requests for Xmodem protocol packet 
file transmission and reception. 



The 



and 
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VI. CONCLUSIONS 



The program developed and implemented -for this thesis successfully 
demonstrated the capability for unmodified IBM PC/AT compatible 
microcomputers to operate in a distributed processing network. A small 
star network consisting of one master microcomputer and two slave 
mi crocomputers was installed and operated in a laboratory environment. 

The network displayed the capability of transferring program and 
data files between the master mi crocomputer and either of the slave 
mi crocomputers , and the capability of the master to command the 
execution of MS-DOS commands and executable programs on the slaves. 
The network further demonstrated that the output of the commands or 
programs could be displayed on the master computer. A simple error 
recovery methodology was also demonstrated. 

Implementation of this program was not feasible in RR Software, 
Inc. JANUS/Ada, due to unexpected problems in the implementation of 
that subset of the Ada language and that compiler's design. This is 
not a fault of the Ada programming language. These design deficiencies 
in the JANUS/Ada were specific to the implementation in an MS-DOS or 
C-P/M environment; and caused fatal operating system faults when a. child 
process was executed from the command parser, as implemented in 
JANUS/Ada. The amount of code emitted by the compiler also appeared to 
be relatively large. It should be noted that the compiler available 
for this thesis was relatively old, version 1.5.2, and as a subset of 
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the Ada language was not validated. It may be that the current , 
validated version has corrected these deficiencies. 

Borland Corporation. Turbo Pascal proved to be a viable programming 
environment for this thesis, and provided many of the features desired 
from the Ada programming language. These include information hiding 
through modular program and the unit structure, data abstraction, 
strong typing, and high level procedures for file input and output, 
access to the mi crocomputer input/output ports, and a standardized 
interface to the system software interrupts. Assembly language 
programming was not required, and was used in two isolated locations to 
implement replacement interrupt service routines and enhance block data. 



movement . 



APPENDIX A 



OPERATOR'S MANUAL 



A. STARTUP 

The distributed processing program is designed to operate on an IBM 
PC/AT compatible mi crocomputer such as the Zenith Z-248. Minimum 
conf i gurati on is a 10 Mbyte or larger hard drive, 640 Kbytes of memory, 
an EGA or VGA monitor, and at least one floppy for program loading. 
The following files should be resident on the hard disk in the desired 
directory: DISTRIB.EXE, DISTRIB. CFG , DISTRIB. PHN. A subdirectory 

should exist off the root directory of the hard disk named SCRATCH for 
the maintenance of redirected output files generated by the Slave 
program. The file transfer program ZCOPY.COM should be available in 
the DISTRIB.EXE directory. 

The microcomputers must be connected by a null modem and 
appropriate cables before the network will operate. Turn on the Slave 
mi crocomputer (s) first. 



B. Slave Operation 

Slave operation is automatic. For convenience, if the 
mi crocomputer is to be used largely as a Slave in the distributed 
processing network, an AUTOEXEC.BAT file may be placed on the boot 
drive root directory that specifies the complete drive and path 
specification for the program, with the following program name: 

Cdr i vel [path 3DISTRIB Server 

On startup, the program will load, initialize and display a 
status screen with a monitor window for remote commands and the Slave's 
responses. Operation of the Slave may be monitored from the display 
screen. The program is aborted and control is returned to the 
operating system if any key on the Slave keyboard is depressed. No 
warning is sent to the Master. 



C. Master Operation 

Master operations are menu driven. For convenience, if the 
mi crocomputer is to be used largely as a Slave in the distributed 
processing network, an AUTOEXEC.BAT file may be placed on the boot 
drive root directory that specifies the complete drive and path 
specification for the program, with the following program name: 



[drive] Cpath]DISTRIB Master 



On startup, the program will load, initialize and display a 
status bar at the bottom. This bar shows the current communications 
port selected at the bottom of the screen and queues the operator to 
depress the HOME key for a list of commands available. The program 
otherwise displays a blank terminal screen although the communications 
ports are disabled for receive on startup. When the operator depresses 
the HOME key, a window appears that offers the following command 
selections with a menu bar that can be positioned to select the desired 
command. The operator is also reminded that the listed commands may be 
selected from the terminal screen by depressing the Alt - <key> 
combination. The commands are: 



Alt-A 


Change drive ?< path 


Alt-B 


Send a Break signal 


Alt-C 


Update Config File 


Alt-D 


Dialing Directory 


Alt-E 


Local echo toggle 


Alt-F 


Change DC params 


Alt-G 


Show disk directory 


Alt-H 


Hang up phone 


Alt-L 


DOS Shell 


Alt-M 


Activate Master 


Alt-F' 


Port Operations 


PgDn , 
Al't-R 


XMODEM Get a file 


Alt-S 


Activate Server 


PgUp , 
Alt-T 


XMODEM Put a file 


Alt-X 


(ESC) Exit emulator 



These commands are discussed individually in the following 
sections. What follows is a general sequence of commands or selections 
to accomplish processing on the Slave microcomputer . 

1. Terminal Operations 



The opening screen of the program is adequate to perform 
teletype terminal communications over the currently selected 
communications port, once properly initialized. The initialization 
commands are fourd in the Activate Master subscreens. 



2. Remote Login 

The Slave mi crocomputer may be operated as though the Master 
operator is entering commands from its keyboard and observing the 
results on its display. These functions are remoted to the Master 
screen . 
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To log in to the Slave, select Activate Master from the main 
menu and then select options from the secondary menu to establish the 
correct baud rate, parity, for the port connected to the desired Slave 
and to connect the port. The default settings are usually satisfactory 
once the network is established. The Master cannot reset the Slave's 
port parameters remotely. Once the port is connected, select Remote 
Login from the Activate Master menu. After a moment for the exchange 
of command and response, the Slave's local directory will be displayed. 
From this point, any MS-DOS command or program entered at the Master 
may be run on the Slave and the output will be displayed at the Master. 

3. Initialize Port, Connect Port, Disconnect Port 

These commands are used to set the communi cati ons port 
settings, and to establish a link to the attached Slave mi crocomputer . 
Both the Slave and Master mi crocomputers must be set up at the same 
serial po»"t parameters to communicate. To change to a different Slave 
(port), either first disconnect the current port and connect the 
desired port, or simply connect the new port. 

4. Equipment Status 

This command will return the Slave conf iguration on the Master 
screen. The number of disk drives, communications ports, and available 
memory is displayed. 

5 . zcopv 

These commands allow file transfers from or to the connected 
Slave. Upon activation, the program will prompt for the file name to 
be sent or received. If the copy will result in another file of the 
same name being overwritten, confirmation will be asked. The Master 
will display the Slave's ZCQPY program output after the transfer is 
complete. This is useful if an error occurs. 

6. Reset Remote 

This command is useful if the Slave was operating 
sati sf actor i 1 y and now appears unresponsive. It aborts any protocol 
transfer in progress and restores flow control the command receive 
mode. 



7. Exit (ESC) 

This exits the Activate Master 
communications port selections remain intact. 



envi ronment . 



All 



D. COMMAND SUMMARY 



The remaining commands accessed from the main screen are: 

1. Alt-A Change drive & path 

This command changes the current disk drive and path for file 
transfers or directory operations. It also determines the starting 
directory for a DOS shell. 

2. Alt-B Send a Break signal 

This command sends an RS-232C break signal over the currently 
selected communications port. 

3. Alt-C Update Con-fig File 

This command allows the operator to display the current 
program conf iguration parameters as found in the file DISTRIB.CFG, in 
the current directory. An error indication is given if the file is not 
found. The operator can select any of the displayed parameters to 
change, and a range of options is displayed. Default settings for the 
communications ports, the modem dialing prefix, and screen color 
settings are provided. 

4. Alt-D Dialing Directory 

This command allows the operator to dial a telephone number 
from a list of stored numbers, or a number entered manually from the 
keyboard. This command assumes a Hayes compatible modem. 

5. Alt-E Local echo toggle 

Intended for terminal operations, this command sets a half 
duplex toggle to display transmitted as well as received commands if 
the remote terminal does not echo received characters. 

6. Alt-F Change DC params 

This command allows the operator to set the baud rate, word 
length, parity and stop bits for the currently selected communications 
port, to override the conf i gurati on settings. 

7. Alt-G Show disk directory 

This command displays the local disk directory, in MS-DOS 
standard or /w formats. 

8. Alt-H Hang up phone 

This command tells the modem to disconnect the telephone line. 
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9. 



Alt-L DOS Shell 



This command executes a secondary copy of the MS-DOS command 
processor to allow the operator to utilise the operating system without 
terminating the distributing processing program. 

10. Alt-M Activate Master 

This command opens a second set of commands to command the 
Slave processor. These include: 

Initialise port 
Connect to current port 
Disconnect current port 
ZCOF'Y file to remote 
ZCOPY file from remote 
Get machine status 
Login to remote machine 
Reset remote server 

a. Initialise Port 

This command allows the operator to select the current 
port parameters from a menu, of options, ranging from 110 baud to 38,400 
baud. 



b. Connect to Current Port 

This command allows the operator to assign a port 
(currently C0M1 or COM2) as the port for current operations. 

c. Disconnect Current Port 

This command disables the receive interrupts for the 
currently selected port. 

d. ZCOPY file to remote 

This command requests the name of the file to be sent to 
the Slave, and then invoices a program called ZCOPY to send the file at 
the maximum data rate supported by the communications port. 

Precautions must be taken if a modem is used, since the modem will 

dictate the maximum data rate. 

e. ZCOPY file from remote 

This command requests the name of the file to be received 
from the Slave, and then invokes a program called ZCOPY to receive the 
file at the maximum data rate supported by the communications port. 

Precautions must be taken if a modem is used, since the modem will 

dictate the maximum data rate. 



f. Get machine status 

This command allows the Master operator to query the 
con-f iguration o-f the connected Slave microcomputer , and displays the 
number o-f floppy disk drives, communications ports, and available 
memory. 

g. Login to remote machine 

This command returns a prompt from the remote machine on 
a full screen window at the Master. The operator is then able to send 
commands to the Slave in much the same manner as from the local 
operating system prompt. Responses are displayed on the Master screen. 

h. Reset remote server 

This command is used to resynchroni ze the Master and 
Slave computers. It does so by sending a series of CAN characters down 
the serial communications link to abort any operations in progress and 
return the Slave to the command mode. 

11. PgDn, Alt-R XMODEM Get a file 

This command allows the Master to perform a file transfer from 
an Xmodem compatible remote system. The filename is requested from the 
operator to assign to the received file. 

12. Alt-S Activate Server 

This command allows the operator to invoke Slave operations on 
the local microcomputer , and is useful for systems initial ization and 
setup. Depressing a key while in this mode aborts the Slave operation, 
but returns the program to the terminal mode. 

13. PgUp, Alt-T XMODEM Put a file 

This command allows the operator to perform a file transfer to 
an Xmodem compatible remote system. The filename of the file to be 
sent is requested from the operator. 

14. Alt-X (ESC) Exit emulator 

This command halts the program, restores all communications 
port interrupt vectors, and returns control to the operating system. 

E. TERMINATION 

1. Slave 



Slave operation is terminated by depressing a. key. Control 
returns to the operating system. 
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2 



Master 



The Master is terminated by returning to the main menu 
(terminal screen) and depressing Alt-X. Control returns to the 
operating system. 
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APPENDIX B 



INSTALLATION/PROGRAMMING AIDS 



This appendix provides in-formation on the construction o-f null 
modem cables -for use between the Master and Slave microcomputers, and 
provides a listing o-f all procedures and -functions -found in the 
distributed processing program. These procedures and -functions are 
sorted alphanumerical ly within by program or unit. 



A. SERIAL PORT CONNECTIONS 

The serial connection between computers are the RS-232C 
communications ports operating at 9600 baud -for IBM PC/AT compatible 
machines and 4800 baud -for IBM PC/AT compatibles. The di-f-ference is 
due to some spurious characters noted on the slower machine's display 
during data transfers. The mi crocomputers at each end o-f a single link 
must be configured for the same speed. The pin connection for the 
interconnecting cables is shown at Figure B.l. For mi crocomputers with 
the nine pin AT style connector, a nine pin to RS-232C 25 pin DB-25 
cable is recommended, with a NULL modem in between. Hardware 
handshaking is turned back in this conf i gurati on . The program will 
operate sa.ti sf actori 1 y through a modem if the baud rate is lowered. 
(Flanders, 1989, p. 252) 



FIGURE B.l 
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B. INSTALLATION 

Installation may be rapidly accomplished by connecting a null modem 
cable to C0M1 for both the Master and Slave microcomputers. Install a 
copy of Zcopy.com in the same directory as the Distrib.exe program. 
The file Distrib.cfg and Distrib.phn should not be resident in this 
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directory, or the program may initialize the COMl ports to incompatible 
settings. Execute the command "Distrib Master" at the MS-DOS prompt of 
both machines. This should bring both programs up in the terminal 
mode. Depress the Alt-M (Activate Master) key combination to access 
the communications port settings and initialize COMl for 9600 baud, 8 
data bits, 1 stop bit and no parity (4800 baud for non - AT IBM F'C 
compatibles). Connect to the COMl port and press ESC to exit the 
secondary menu. The Master and Slave should be able to communicate as 
glass teletypes to each other. If desired, change the default settings 
for both mi crocomputers to the desired port parameters by selecting 
Alt-C (Update Config File). This, when saved, will generate the 
configuration file for the mi crocomputer . A similar procedure with 
Alt-D will allow the creation of the telephone number file if desired. 
Create an AUTOEXEC.BAT file for the mi crocomputer (s) designated as 
Slave and include the command "Distrib Server" to enter the Slave 
program on power up. A similar file with "Distrib Master" will allow 
the Master mi crocomputer to assume that role on power up. 



C. UNIT DEPENDENCIES 

The following chart (Table B.l) illustrates the the dependencies of 
the various units in the program, as a guide to the visibility of the 
data structures, procedures and functions in the interface section of 
each program module. CRT and DCS are units supplied with the compiler. 
All programs and units depend on the System unit. 
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TABLE B. 1 



UNIT DEPENDENCIES 



un it /program: 



DEPENDS ON 



D 

I 

S 

T 

R 

I 

B 



D 

A 

T 

A 

C 

0 

M 



D 

I 

R 

E 

C 

T 

0 

R 



E 

R 

R 

0 

R 

C 

0 

D 



G 

E 

N 

E 

R 

A 

L 



M 

I 

S 

C 

P 

A 

C 

K 



P 

A 

R 

S 

E 

R 



R 

E 

D 

I 

R 

E 

C 

T 



S 

P 

A 

W 

N 



S 

U 

P 

P 

0 

R 

T 



W 

N 

D 

0 

W 



X 

M 

0 

D 

E 

M 



CRT 

DATA.COM 

DIRECTOR 



! X 

-+ 

; x 

-+ — 

! X 



: x 

.+ — 

! 



: x 

-+ — 

i 

i 

-+ 

t 



-+ + + 



! X 
-+ — 



! X 



I X 

-+ 

i X 

-+ 

! X 



! X ! 

-+ +- 

: x i 

-+ — +- 



-+ — 

: x 

-+ — 



■+ — 

! X 

■+ 

i X 



+- 



DOS 

ERRORCOD 



I A 
- + 

i X 



! X ! X ! 
•+ +- 



X ! X ! X 

1 1 

X ! ! X 



: x 

-H 

I 
I 






-+ — 



GENERAL 

MISCPACK 

PARSER 

PRINTER 



! X 

-+ — 

: x 



: x 

-i — 



•+ — 
i 



- + 



M 1-“ 

1 I 






! X 

-•4 

! X 



+ + 4- — 

X ! X ! X 

+ + + — 



: x 

+ — 






: x : 

H + - 

! x : 

+ — +- 






IV* * i 



i y i i i 






REDIRECT 
SPAWN 
SUPPORT 
WNDOW 
XMODEM 



l I 

— i h“ 



+ -f- 

V 1 

A i 
+ + 






i 

i 

- + 

; x 

-A 



- + 
I 









X ! 

+- 



A f-- 

i X ! 

+ +- 

! X ! 

+ +- 



C . PROCEDURE/FUNCT ION LIST 

The following functions and procedures are found within the Distrib 
programs 

1. Program Distrib 

a. C h a n g e _ D C _ P a r a m e t e r s 
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b. 


Comffi5_f uncti on 


c. 


Di al i ng_Di rectory 


d. 


Dial_Phone 


e. 


Di rs 


i . 


Do5_Shel 1 


g- 


Get_Di al 


h. 


Get_Equip 


i . 


Handl e_Al t_Key 


j. 


Hangup 


k. 


Operator_i nput 


1 . 


0perator_me5sage 


m. 


Proces5_command 


n. 
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O. 
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3. UNIT Director 

a. GetAttribut 

b. ShowDir 

c. StandBy 

d. ViewDir 

e. WriteEntry 

4. UNIT ErrorCod 

a. Extended Error Code 



5. 



UNIT General 

a. Beep 

b. Cursor_Size 

c. Exchange 

d. Fill Word 

e. Get_Time 
i . Max 

g . Min 



6. UNIT Miscpack 

a. Bump St r Up 



7. 



UNIT Parser 

a. argc 

b. argv 

c. Init_parse 

d. Parse 

e. F'arseName 
■f. Pa.rser_main 

g. Resol ve_command 



8 . 



UNIT Redirect 

a. Cl ose_Fi 1 e_Handl e 

b. Du.pl i cate_Ha.ndl e 

c. Ini t_Redi rect_Uni t 

d. Redi rect_Al 1 _Output 

e„ Redi rect_Handl e 

f. Redi rect_Std_Inpu.t 

g. Redi rect_Std_Error 

h. Redi rect_Std_Qu.tput 

i . Restore_Std_Error 

j. Restore_Std_ Input 

k. Restore_Std_Qutput 

l. Restore_Al 1 _Output 

m. Restore_CRT_Assi gnments 



9. UNIT Spawn 

a. Match_Command 

b. Process_intrinsic_command 

c. Run Local 
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UNIT Support 
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APPENDIX C 



XMODEM PROTOCOL 



The following is an overview of the Xmodem protocol, as described 
by the author. (Trimble, 1989). 

A. MODEM PROTOCOL OVERVIEW 178 lines, 7.5K 

1/1/82 by Ward Christensen. I will maintain a master copy of this. 
Please pass on changes or suggestions via CBBS/Chicago at (312) 
545-8086, or by voice at (312) 849-6279. 

NOTE: this does not include things which I am not familiar with, 

such as the CRC option implemented by John Mahr. 

Last Rev: (none) 

At the request of Rick Mallinak on behalf of the guys at Standard 
Oil with IBM P.C.s, as well as several previous requests, I finally 
decided to put my modem protocol into writing. It had been previously 
formally published only in the AMRAD newsletter. 

Table of Contents 

1. DEFINITIONS 

2. TRANSMISSION MEDIUM LEVEL PROTOCOL 

3. MESSAGE BLOCK LEVEL PROTOCOL 

4. FILE LEVEL PROTOCOL 

5. DATA FLOW EXAMPLE INCLUDING ERROR RECOVERY 

6. PROGRAMMING TIPS. 

1. Definitions 

< soh > 01H 

eot k 04H 

<ack> OSH 

<nak> 15H 

<can> 18H 

2. Transmission Medium Level Protocol 

Asynchronous, 8 data bits, no parity, one stop bit. 

The protocol imposes no restrictions on the contents of the 
data being transmitted. No control characters are looked for in the" 
128-byte data messages. Absolutely any kind of data may be sent 
binary, ASCII, etc. The protocol has not formally been adopted to a 
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7-bit environment for the transmission of ASCII-only (or unpacked-hex ) 
data , although it could be simply by having both ends agree to AND the 
protocol -dependent data with 7F hex before validating it. I 
specifically am referring to the checksum, and the block numbers and 
their ones-complement. 

Those wishing to maintain compatibility of the CP/M file 
structure, i.e. to allow modemming ASCII files to or from CP/M systems 
should follow this data format: 

ASCII tabs used (09H) ; tabs set every 8. 

Lines terminated by CR/LF (ODH OAH) 

End-of-file indicated by "'Z , 1AH. (one or more) 

Data is variable length, i.e. should be considered a 
continuous stream of data bytes, broken into 128-byte chunks purely 
for the purpose of transmi ssi on . 

A CP/M "pecul iarity": If the data ends exactly on a 

128-byte boundary, i.e. CR in 127, and LF in 128, a subsequent sector 
containing the '"l EOF character(s) is optional, but is preferred. Some 
utilities or programs still do not handle EOF without '"'Zs. 

The last block sent is no different from others, i.e. 
there is no "short block". 

3. Message Block Level Protocol 

Each block of the transfer looks like: 

<S0HXblk #><255-bl k #><--128 data bytes— ><cksum> 



in which: 

<SOH> = 01 hex 

<blk #> = binary number, starts at 01 increments by 

1, and wraps OFFH to 00H (not to 01) 

<255-blk #> = blk # after going thru 8080 "CMA" instr, 
i.e. each bit complemented in the 8-bit block number. 

Formally, this is the "ones complement". 

<cksum> = the sum of the data bytes only. Toss any 

ca^ry. 

4. File Level Protocol 

a. Common to Both Sender and Receiver 

All errors are retried 10 times. For versions running 
with an operator (i.e. NOT with XMODEM), a message is typed after 10 
errors asking the operator whether to "retry or quit". Some versions 
of the protocol use <can>, ASCII •"•X, to cancel transmi ssi on . This was 
never adopted as a standard, as having a single "abort" character makes 
the transmission susceptible to false termination due to an <ack> <nak> 
or < soh > being corrupted into a <can> and canceling transmission. 
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The protocol may be considered "receiver driven", that 
is, the sender need not automatically re-transmit, although it does in 
the current implementations. 

b. Receive Program Considerations 

The receiver has a 10-second timeout. It sends a <nak> 
every time it times out. The receiver's -first timeout, which sends a 
<nak>, signals the transmitter to start. Optionally, the receiver 
could send a <nak> immediately, in case the sender was ready. This 
would save the initial 10 second timeout. However, the receiver MUST 
continue to timeout every 10 seconds in case the sender wasn't ready. 

Once into a receiving a block, the receiver goes into a 
one-second timeout -for each character and the checksum. If the 
receiver wishes to <nak> a. block for any reason (invalid header , 
timeout receiving data) , it must wait for the line to clear. See 
"programming tips" for ideas Synchronising: If a valid block 
number is received, it will be: 



fine; or 



(i) The expected one, in which case everything is 



(2) a repeat of the previously received block. This 
should be considered OK, and only indicates that the receivers <ack> 
got glitched, and the sender re-transmitted; 



(3) any other block number indicates a fatal loss of 
synchroni sati on , such as the rare case of the sender getting a 
line-glitch that looked like an <ack>. Abort the transmission, sending 

a. <ca.n>. 



c. Sending Program Considerations 

While waiting for transmission to begin, the sender has 
only a single very long timeout, say one minute. In the current 
protocol, the sender has a 10 second timeout before retrying. I 
suggest NOT doing this, and letting the protocol be completely 
recei ver-ari ven. This will be compatible with existing programs. 

When the sender has no more data, it sends an <eot>, and 
awaits an <ack>, resending the <eot> if it doesn't get one. Again, the 
protocol could be recei ver-dr i ven , with the sender only having the 
high -level 1 -minute timeout to abort. 

5. Data Flow Example Including Error Recovery 

Here is a sample of the data flow, sending a 3-block message, 
which handles the two most common line hits - a ga.rbaged block, and an - 
<ack> reply getting garbaged. <xx> represents the checksum byte. 
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FIGURE C. 1 



DATA FLOW EXAMPLE 
SENDER RECEIVER 



<soh> 01 FE -data- <;•:>;> 
<soh> 02 FD -data- xx 
<soh> 02 FD -data- xx 



<soh> 03 FC -data- xx 
(ack gets garbaged) 
<soh> 03 FC -data- xx 
<eot> > 



times out after 10 seconds, 

<nak> 

_ \ 

< ac k > 

> (data gets line hit) 

<nak> 

< ac k > 

< < ac k > 

> <ack> 

< ac k > 



6. Programming Tips 

The character — receive subroutine should be called with a 
parameter specifying the number of seconds to wait. The 
receiver should first call it with a time of 10, then <nak> and 
try again, 10 times. 

After receiving the <soh>, the receiver should call the 
character receive subroutine with a 1-second timeout, for the 
remainder of the message and the <cksum>. Since they are sent 
as a continuous stream, timing out of this implies a serious 
like glitch that caused, say, 127 characters to be seen instead 
of 128. 



When the receiver wishes to <na.k>, it should call a "PURGE" 
subroutine, to wait for the line to clear. Recall the sender 
tosses any characters in its UART buffer immediately upon 
completing sending a. block, to ensure no glitches were mis- 
interpreted. t 

The most common technique is for "PURGE" to call the 
character receive subroutine, specifying a 1-second timeout, 
and looping back to PURGE until a timeout occurs. The <nak> is 
then sent, ensuring the other end will see it. 

You may wish to add code recommended by Jonh Mahr to your 
character receive routine - to set an error flag if the UART 
shows framing error, or overrun. This will help catch a few 
more glitches - the most common of which is a hit in the high 
bits of the byte in two consecutive bytes. The <cksu.m> comes 
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out OK since counting in 1-byte produces the same result of 
adding 80H + 80H as with adding 00H + 00H. 
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APPENDIX D 



MAINTENANCE MANUAL FOR DISTRIB PROGRAM 



A. PROGRAM DISTRIB 

1. Configuration Information 

a. Language - Turbo Pascal Version 4.0 

b. Compiler Version - 4.0 

c. Target Hardware - IBM PC/AT or close compatible 

d. Operating System - Microsoft MS-DOS (Version 3.x) 

e. Program Description 

Distrib is the main program for both the Master and 
Slave computers operating in the distributed processing network. The 
main program loop initializes the window unit, saves the current 
directory and the current screen image for restoration on program 
termination, and then calls Initialize in the Support Unit to establish 
the communications port parameters, screen colors, dialing directory, 
and other default parameters. The program then examines the command 
tail following the program name when it was called from the operation 
system and takes one of the following actions: 

(1) Command tail is NIL or "Server". If nothing is 
specified after the program name, or the word "Server" is found as the 
first command line parameter, the program assumes it is to operate as a 
remote Slave or Server and enters a. processing loop to wait for a 
command packet from its communications port. A local screen display is 
available showing a program version banner and a monitor window showing 
commands received and responses generated. Local keyboard input after 
this point will abort the program, reverting the computer to local use. 

(2) Command tail is "Master". If the word "Master" is 
found as the first command line parameter, the program enters the 
terminal mode through the default communications port and awaits 
operator action at the local keyboard. If a remote Slave computer is 
connected, NAK symbols will be displayed periodically as the remote 
computer awaits a command. A status line is displayed across the 25 
line of the screen and HELP is offered to the local operator if the 
HOME key is depressed. HELP displays a list of available commands to 
initiate file transfers or run remote programs. 

2. Subroutines Contained 

a. Dial_Phone 

(1) Type: Procedure 
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(2) Purpose: To dial a selected telephone number on a 

Hayes compatible modem connected to the modem port. 

(3) Description of Parameters: I is the entry number 

to be dialed that was selected by the user from the Dial ing_Directory 
procedure that follows. Demon_Dial, if TRUE, repeat dials the entry 
until the modem reports a connection. This procedure changes the COMM 
port selection stored in the DataCom Unit variable Current_Com to the 
modem port, and leaves it there. 

(4) Subroutines Called: 

Flush_Buffer (dumps the receive buffer) 

DataCom. Connected 
DataCom. RS_ Ini tial ize 
DataCom. RS_Cleanup 
DataCom. RS232_In 
DataCom. RS232_Avai 1 
DataCom. Send_Stri ng 
CRT.ClrEOL 
CRT. Cl rScr 
CRT. Del ay 
CRT. SoToXY 
Wndow. Beep 
Wndow. Get_Wi ndow 
Wndow. Open_Wi ndow 
Wndow. Close_Window 

(5) Process Description 

Siven the dialing directory entry to dial, the 
procedure initializes the modem port according to information stored in 
the dialing entry data structure Support . Phone_Stuff ; and sends a 
string to the modem to dial the number. If repeat dialing is selected, 
a window is displayed showing the progress of the call. 

b. Get_Dial 

(1) Type: Procedure 

(2) Purpose: This procedure allows the operator to 

select a telephone number to be dialed. 

(3) Description of Parameters: 

Input: Support . Phone_l y lenu (the list of available 

numbers) 

Output: The function returns the order of the 

n'th phone list entry 

(4) Subroutines Called: 

Wndow. Open_Wi ndow 
Wndow. F'rocess_Wi ndow 

(5) Process Description 

The procedure calls Open_Window with parameter 
Phone_Menu from the Support Unit to display a menu of telephone numbers 
contained in the file DISTRIB.F'HN, and allows the operator to select 
one with a menu bar. 

c. Dial ing_Directory 

(1) Type: Procedure 
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(2) Purpose: To allow the user to dial, modify, add 

or delete any telephone number entry in the data structure 
Support . Phone_Stuf f . 

(3) Description of Parameters: none. 

(4) Subroutines Called: 

Get_Dial (displays the list of telephone numbers 

that are available) 

CRT. GoToXY 
CRT. ClrEOL 



(5) 



CRT. Cl rScr 

Support . Modi f y_Entry 
Support . OK 
System. FreeMem 
System. GetMem 
System. Move 
System. Si zeOf 
Wndow. Get_Window 
Wndow. Open_Wi ndow 
Wndow. Cl ose_Wi ndow 
Process Description 



This procedure first 
the operator to dial, modify, add or delete 
structure Support . F’hone_Stuff . If dial 

dialed and the program returns to terminal 
is selected, a list of available names attached 
numbers is displayed for selection. If a number is 
blank parameter table is displayed for data entry, 
operator is offered the opportunity to save the added number to the 
file DISTRIB.PHN, through a call to Modi f y_Entry . ESC returns to the 
terminal mode. 



displays a window allowing 
any number in the data 

is selected, the number is 

mode. If modify or delete 

to known telephone 
to be added, a 

On completion, the 



d. Dirs 

(1) Type: Procedure 

(2) Purpose: To allow the user to display the local 

disk directory. 

(3) Description of Parameters: none. 

(4) Subroutines Called: 

CRT. GoToXY 

CRT. ClrEOL 
CRT . Cl rScr 
DGS. Fi nd_First 
DOS. Find_Next 
System. ChDi r 
System. GetDir 
System. ReadKey 
Wndow. Open_Wi ndow 
Wndow. Close_Window 

(5) Process Description 

This procedure prompts the user for a path 
specification and directory mask similar to that used by the MS-DOS DIR 
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command and then displays the directory tor that specification a screen 
at a time. Capabilities similar to DIR *.* and DIR *.*/w are provided. 

e. Change_DC_Parameters 

(1) Type: Procedure 

(2) Purpose: To allow the user to select speed, 
parity, word length and stop bit parameters for the COM port specified 
by DataCom. Current_Com. 

(3) Description of Parameters: DataCom. Current_Com 

(4) Subroutines Called: 

CRT. Cl rScr 

DataCom. RS_Ini ti al i ze 
DataCom . RS_C1 eanup 
Wndow. Open_Wi ndow 
Wndow. Close_Window 
Wndow. Process_Wi ndow 

(5) Process Description 

This procedure offers a selection of parameter 

combinations for the currently selected COM port and allows the port to 
be configured accordingly. A menu bar selection is used. 

f . Hangup 

(1) Type: Procedure 

(2) Purpose: To hang up the modem. 

(3) Description of Parameters: DataCom. Current_Com 

(4) Subroutines Called: 

CRT. Delay 
DataCom. RS232_ In 
DataCom. RS232_Avai 1 
DataCom. RS_Ini ti al i ze 
DataCom. RS_C1 eanup 
DataCom. Send_Str i ng 

(5) Process Description 

This procedure places the modem in command mode 
and sends a disconnect command string to the Hayes compatible modem 
connected to the current communications port. 





g- 


Operator_Input 








(1) 


Type: Function 








(2) 


Purpose: To obtain a string input 


from the 


operator . 




(3) 


Description of Parameters: Title is 


a string 


typed in 


the 


Wndow 


Unit that is to be displayed on the window; Prompt 



is a string written in the window area specifying what the operator is 
to enter. 

(4) Subroutines Called: 

CRT. Cl rScr 
Wndow. Qpen_Wi ndow 
Wndow. Close Window 



il 



(5) Process Description 

This -function opens a titled window and waits -for 
the operator to type a string. The string is returned as the -function 
result. 



h. Operator Jlessage 

(1) Type: Function 

(2) Purpose: To in-form the operator with a string 

message, usually o-f some error condition that is to be temporarily 
di splayed. 

(3) Description o-f Parameters: Title is a string 

typed in the Wndow Unit that is to be displayed on the window; Message 
is the string message to be provided to the operator. Note that this 
function depends on the calling program to close the window. 

(4) Subroutines Called: 

CRT. Cl rScr 

Wndow. Open_Wi ndow 

(5) Process Description 

This function opens a titled window and places the 
message string in the window. 



i . Process_Command 

(1) Type: Function 

(2) Purpose: To operate the computer as a Slave, 

process all requests to initialize COM ports, transfer files between 
Master and Slave computers, remotely operate a Slave computer, or reset 
the connection between computers. 

(3) Description of Parameters: The function returns 

to the calling program an enumerated state variable defined in the Unit 
Xmodm depending on the successful dispatch of a command to a Slave 
computer and the receipt of the response, or an indication that the 
local operator has aborted the operation by pressing a key. The 

keypressed indication is typically all that is of interest, since the 
function normally called repeatedly. 

(4) Subroutines Called: 

CRT. Cl rScr 

CRT. GoToXY 
System. ReadKey 
Wndow. Open_Wi ndow 
Wndow. Cl ose_Wi ndow 
Wndow. Get_Wi ndow 
Wndow. Process_Wi ndow 
Xmodm. Buf _to_String 
Xmodm. Command _Xf er 
Xmodm. Send_CAN 
Xmodm. Stri ng_to_buf 
Xmodm. Respond_by_f i 1 e 

(5) Process Description 

The initial state of the communications link is 
from Master to Slave (this process). This function opens a small 
status window indicating whether it is awaiting a remote command, 



parsing a received command for local execution, or completing the 
command execution. It does so in this sequence: First, a loop is 
entered that repeatedly calls the function Xmodm. Command_Xf er . On 
successful receipt (status = Rx_done) , the command is converted from an 
Xmodem packet into a string and passed to Parser . Parser _main for 
execution. The communications link also switches direction, with the 
Master expected the Slave to initiate Xmodem packet transmissions. 
This procedure returns any error indication from the locally executed 
procedure or spawned program as a string in the variable Error_Msg, 
along with a typed variable Errtype indicating whether the response is 
a file (for program results or output) or a simple string variable or 
nothing at all (NULL string). Errtype is used in a following CASE 
construct to send the file specified by a complete drive and path 
specification in Error_Msg back to the Master computer, or to forward 
Error_Msg as a packetized string utilizing the Transmit option of 
Xmodm. Command_Xfer . Similarly, this procedure returns any output from 
the locally executed procedure or spawned program as a string in the 
variable Response, along with a typed variable Restype indicating 
whether the response is a file (for program results or output) or a 
simple string variable or nothing at all (NULL string). Restype is 
used in a following CASE construct to send the file specified by a 
complete drive and path specification in Response back to the Master 
computer, or to forward Response as a packetized string utilizing the 
Transmit option of Xmodm. Command_Xfer . The Master computer expects a 
response of this type over the communications line when it detects the 
successful command transfer. Note that the normal exit condition for 
the Command_Xfer loops throughout this function is Rx_Done or Tx_Done. 
The Master computer will continue to display responses from the Slave 
until a CAN character is received. At this point, the function returns 
with the last valid status of the Command_Xfer function, and the 
communications link again switches to the beginning state, with the 
Slave waiting on transmissions from the Master. Error indications 
other than that in Error_Msg short circuit the program execution 
through this function, send a CAN character to the Master, return the 
communications link to its initial state, and leave the function with 
an error status. 



j. Reset_Remote 

(1 '» Type: Procedure 

(2) Purpose: This subprocedure of the Comms_Functi on 

allows the operator to recover control of the Slave computer if 
synchronization is lost over the communications link. 

(3) Description of Parameters: None. 

(4) Subroutines Called: 



Update. Status (local to Comms_Functi on ) 

Xmodm. Send_CAN 

(5) Process Description 

This procedure sends four CAN characters out on 
the communications link to the Slave. The Process_Command function" 
(described above) is sensitive to the receipt of CAN characters and 
will exit the function early with an error status. The calling program 
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simply loops into the Process_Command function again and awaits a 
command. 

k. Remote_Command 

(1) Type: Function 

(2) Purpose: This subfunction of Comms_Functi on 

function accomplishes one cycle of a Master to Slave command and 
response over the communications port. 

(3) Description of Parameters: The function is 

entered with a string containing the command to be executed. The 
function returns to the calling program an enumerated state variable 
defined in the Unit Xmodm depending on the successful dispatch and 
execution of a command by the Slave computer, or an indication that a 
local operator has aborted the sequence by depressing a key. The 
keypressed indication is typically all that is of interest, since the 
function normally called repeatedly. 

(4) Subroutines Called: 

System. ReadKey 
Xmodm. Command_Xf er 
Xmodm. Stri ng_to_buf 

(55 Process Description 

This function is currently called by Get_Equip to 
perform a single command cycle; or Rlogin to repeatedly cycle and allow 
the operator to remotely operate the Slave computer from the Master 
keyboard in a. manner similar to the DOS prompt. It does so in this 
sequence: First, a loop is entered that repeatedly calls the function 

Xmodm. Command_Xf er to pass the command string to the Slave. On 
successful transmission (status = Tx_done) , function 

Xmodem. Get_Response displays the packetized response from the Slave on 
the Master monitor window. The Master continues to display responses 
from the Slave until the Slave sends a CAN character, indicating 
completion of the all responses, or the Master operator depresses a key 
to break the cycle. At this point, the function returns with a boolean 
indication of the success of the transfer 

(TRUE = success, FALSE for any keypress during the cycle). 

l. Rlogin 

(1) Type: Procedure 

(2) Purpose: This subprocedure of the Comms_Functi on 

function cycles the Remote_Command function and allows operator input 
of commands to the Slave until aborted by the operator. 

(3) Description of Parameters: None. 

(4) Subroutines Called: 

Update. Status (local to Rlogin) 

CRT . Cl rScr 

Di str i b . Remote_Command 
Di stri b . Reset _Remote 
Di str ib . Operator_Input 
Wndow. Open_Wi ndow 
Wndow. Cl ose_Wi ndow 
Wndow. Get Window 
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(5) Process Description 

At the beginning, this procedure opens a -full 
screen window to display all responses -from the Slave in much the same 
way a local operator would view them. The procedure then calls 
Remote_Command initially with a command string requesting a prompt -from 
the remote system so that the operator can determine the current 
directory o-f the Slave. If that succeeds, the Master operator is 
prompted -for a command to send to the Slave by Operator_Input. Remote 
processing may be terminated by entering an exclamation point ("!") 
whereupon the operator is asked to con-firm the termination. Remote 
processing also terminates i-f Rlogin returns a FALSE result. On exit, 
the procedure closes the monitor window and exits. 

m. Rx_File 

(1) Type: Procedure 

(2) Purpose: This subprocedure of the Comms_Functi on 

function initiates a file transfer from the Slave to the Master by 
using an adaptive file transfer program, Zcopy. 

(3) Description of Parameters: None. 

(4) Subroutines Called: 

Update. Status (local to Rlogin) 

CRT. Cl rScr 

Di str i b . Remote_Command 
Di stri b. Operator _ Input 
System. Exec 
Wndow. Open_Wi ndow 
Wndow. Cl ose_Window 
Wndow. Get_Wi ndow 
Xmodm. Str i ng_to_buf 

(5) Process Description 

This procedure opens a full screen window to 
display the operation of the Zcopy file transfer program, and prompts 
the operator for the name of the file to receive. This file is assumed 
to be in the current directory of the Slave unless a full path is 
specified. Once the file name is obtained, a command string is 
assembled to send to the Slave to initiate the transfer. The procedure 
is terminated if the command transfer is interfered with by a keypress 
at the Master. Once the Slave acknowledges receipt of the command, the 
Master initiates the Zcopy program locally, using a different format to 
operate as a server under the temporary control of the Slave. The 
operator is provided prompting information from the Zcopy program in a 
full screen window if a file must be overwritten or Zcopy 
synchronization is not achieved. Once completed or terminated, the 
procedure displays the Zcopy display output from the Slave computer for 
error diagnostics (if needed), closes all opened windows and exits. 

n. Tx_Fi le 

(1) Type: Procedure 

(2) Purpose: This subprocedure of the Comms_Function 

function initiates a file transfer from the Master to the Slave by 
using an adaptive file transfer program, Zcopy. 
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(3) Description of Parameters: None. 

(4) Subroutines Called: 

Update. Status (local to Rlogin) 

CRT. Cl rScr 

Di str i b . Remot e_Command 
Distrib. Operator_Input 
System. Exec 
Wndow. Open_Window 
Wndow. Cl ose_Wi ndow 
Wndow. Get_Window 
Xmodm. Str i ng_to_buf 

(5) Process Description 

This procedure opens a full screen window to 
display the operation of the Zcopy file transfer program, and prompts 
the operator for the name of the file to transmit. This file is 
assumed to be in the current directory of the Master unless a full path 
is specified. Once the file name is obtained, a command string is 
assembled to send to the Slave to initiate the transfer. The procedure 
is terminated if the command transfer is interfered with by a keypress 
at the Master. Once the Slave acknowledges receipt of the command, the 
Master initiates the Zcopy program locally, operating as a file 
transfer master with the Slave operating as a Slave. The operator is 
provided prompting information from the Zcopy program in a full screen 
window if a file must be overwritten or Zcopy synchronization is not 
achieved. Once completed or terminated, the procedure displays the 
Zcopy display output from the Slave computer for error diagnostics (if 
needed), closes all opened windows and exits. 

o. Get_Equip 

(1) Type: Procedure 

(2) Purpose: This subprocedure of the Comms_Functi on 

function displays the communications port and floppy disk configuration 
of the Slave computer. 

(3) Description of Parameters: None. 

(4) Subroutines Called: 

Update. Status (local to Rlogin) 

CRT. Cl rScr 

Di stri b . Remot e_Command 
Distrib. Operator_Inpu.t 

Wndow. Open_Wi ndow 

Wndow. Cl ose_Window 

(5) Process Description 

Utilizing the Remote_Command function, this 
procedure dispatches the command string "Equip" to the Slave, which is 
processed in the Slave program to obtain BIOS information via BIOS call 
$11. On exit, the procedure closes the remote monitor window and 
ex i ts. 

p. Comms_Function 

(1) Type: Function 
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(2) Purpose: To process operator requests to 
initialize COM ports, transfer -files between Master and Slave 
computers, remotely operate a Slave computer, or reset the connection 
between computers. 



(3) Description o-f Parameters: The function returns 

to the calling program an enumerated state variable defined in the Unit 
Xmodm depending on the successful dispatch of a command to a Slave 
computer and the receipt of the response, or an indication that the 
local operator has aborted the operation by pressing a key. The 
keypressed indication normally allows the operator to make another 
selection or to leave this function. 

(4) Subroutines Called: 

Update. Status (for local display of the system 



state) 



CRT. ClrScr 
CRT. GoToXY 

Distri b . Remote_Command 
Di str i b . R1 ogi n 
Distri b. Rx_Fi le 
Distrib. Tx_Fi le 
Di str i b . Get_Equi p 
System. ReadKey 
Wndow. Open_Window 
Wndow. Close_Window 
Wndow. Get_Wi ndow 
Wndow. Process_Window 
Xmodm. Buf _to_Stri ng 
Xmodm. Command_Xf er 
Xmodm. Send_CAN 
Xmodm. Stri ng_to_buf 
Xmodm. Respond_by_f i 1 e 

(5) Process Description 

This function opens a window showing the 

parameters for the current communications port, and a second window to 
allow the operator to select one of the following functions: 

Initialize a port, change to a different port and enable the receive 
interrupts, disable a. receive interrupts for a port, send a file to the 
Slave computer, receive a file from the Slave, obtain the port and disk 
conf iguration of the Slave, operate the Slave remotely, reset the 
current Xmodem link, and leave the function. It does so by calling one 
of the following procedures or functions local to Comms_Funct ion by a 
CASE selection: Di stri b . Remote_Command , Distrib. Rlogin , 

Distrib. Rx_File, Distrib. Tx_File, Distrib. Get_Equip. 



q. DOS_Shel 1 

(1) Type: Procedure 

(2) Purpose: This procedure spawns a copy of the 

MS-DOS command processor to allow the operator of the Master computer 
to perform DOS functions while retaining the control program. Control 
is returned to the Master program on exiting the secondary processor. 

(3) Description of Parameters: None. 
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(4) Subroutines Called: 

CRT.ClrEOL 

CRT.ClrScr 

CRT. Del ay 

Di stri b . Fi nd_Envi ronment 

Support. OK 

System. ChDir 

System. GetDir 

System. Exec 

Wndow. Open_Wi ndow 

Wndow. Cl ose_Wi ndow 

(5) Process Description 

The procedure -first locates a copy of the DOS 
command processor by finding the "COMSPEC=" path specification in the 
current environment. This is established on startup of the computer 
and is normally passed down to the application program for its use. 
Once this complete file speci f icati on is obtained, the operator is 
informed that the DOS shell will be activated and a full screen window 
is opened to save the current screen. When the operator terminates the 
secondary command processor by entering "EXIT" at the prompt, the 
procedure restores the original disk drive and directory, notes any DOS 
errors returned, and returns to the terminal screen. If the COMSPEC 
environment parameter cannot be found, the procedure informs the 
operator , obtains acknowledgment, and exits. 

r . Handl e_ALT_Key 

(1) Type: Procedure 

(2) Purpose: This procedure dispatches the program to 

a particular function selected by the operator as an ALT-key. A help 
display is also provided as offered on the status line. 

(3) Description of Parameters: B is the high order 

byte read from the keyboard and is used as a CASE selector 

(4) Subroutines Called: 

CRT.ClrEOL 

CRT.ClrScr 

CRT. Delay 
DataCom. RS_Break 
Distrib. Change_DC_Parameters 
Di str i b . Comms_Functi on 
Distrib.Diali ng_Di rectory 
Di str i b . Di rs 
Distrib. DOS_Shel 1 
Di str i b . Hangup 

Di stri b . Handl e_ALT_Key (the procedure calls itself 
after processing the help menu) 

Support . Bui 1 d_Status_Li ne 
Support . Modi f y_Entry 
Support . OK 
System. ChDi r 
Wndow. Beep 
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Wndow. Close_Window 
Wndow. Open_Wi ndow 
Wndow. F'rocess_Wi ndow_Menu 
Xmodm. Transfer File 



port 



modem 

communications 

parameters 



allow selection 



(5) Frocess Description 

The -functions offered by this procedure are: 

Alt-A: Change Drive and Path 

Alt-B: Send a Break signal out of the current COM 

Alt-C: Clear the screen 

Alt-D: Dial a telephone number and connect by 

Alt-E: Toggle the local Echo for half duplex 

Alt-F: Change the default communications 

Alt-6: Show the current directory 

Alt-H: Hang up the modem 

Alt-L; Open the DOS Shell 

Alt-M: Activate the Master 

Alt-P: Activate the Master 

Alt-R, FgDn: Receive a file via Xmodem 

Alt_S: Activate the Server 

Alt-T, PgUp: Transmit a file via Xmodem 

Alt-X: Terminate the program 

Home: Display a help screen of these commands and 

by menu bar 



s. TTY 

(1) Type: Procedure 

(2) Purpose: This procedure provides a. teletype 

emulation augmented by ANSI control functions. 

(3) Description of Parameters: ANSI = TRUE indicates 

the procedure acts as an ANSI terminal emulator. 

(4) Subroutines Called: 

WriteLF (process a line feed) 

DOS Interrupt $10 (Video Display) 

CRT.ClrScr 



CRT . Del ay 
Wndow. Open_Window 
Wndow. Cl ose_Wi ndow 
Support . OK 
System. ChDi r 
System. GetDi r 
System. Exec 

(5) Process Description 

The procedure filters characters generated by the 
keyboard and arriving from the communications port in the terminal mode 
to emulate an ANSI terminal. ALT-key combinations are intercepted from 
the keyboard and processed by Handl e_ALT_Key . 



APPENDIX E 



MAINTENANCE MANUAL FDR UNIT DATACOM 



A. UNIT DATACOM 

1. Configuration Information 

a. Language - Turbo Pascal Version 4.0 

b. Compiler Version - 4.0 

c. Target Hardware - IBM PC/AT or close compatible 

d. Operating System - Microsoft MS-DOS (Version 3.x) 

e. Program Description 

Provides all procedures and functions needed to 
initialize the computer serial communications ports, enable and disable 
receive interrupts, provide buffered reception of characters, clear the 
receive buffer(s), send or receive bytes through the ports, send a 
BREAK signal over the RS-232 port, and nondestructi vel y read the 
receive buffer (s) . Supports Unit Xmodem and the terminal portion of 
Distrib. The currently selected communications port is contained in 
public variable Current_Com. 

2. Subroutines Contained 

a. Disable_Interrupts 

(1) Type: Procedure 

(2) Purpose: To permit a Pascal procedure to disable 

system interrupts. 

(3) Description of Parameters: 

Input: None. 

Output: System interrupts are disabled. 

(4) Subroutines Called: 

Inline assembly. 

(5) Process Description 

The assembly instruction to mask off interrupts at 
the CPU is inserted into the code stream at compile time. 

b. Enable_Interrupts 

(1) Type: Procedure 

(2) Purpose: To permit a Pascal procedure to enable 

system interrupts. 

(3) Description of Parameters: 

Input: None. 

Output: System interrupts are enabled. 

(4) Subroutines Called: 

Inline assembly. 
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(5) Process Description 

The assembly instruction to unmask interrupts at 
the CPU is inserted into the code stream at compile time. 



c. 


RS232_ISR1 








(1) 


Type: Procedure 








(2) 


Purpose: The interrupt 


service routine 


tor 


communi cations 


port 


one. 








(3) 


Description ot Parameters: 
Input: An interrupt vector 


call initiated 


trom 


communications 


port 


one. 










Output: The received character is placed 


in a 


butter . 


(4) 


Subroutines Called: 







DataCom. Di sabl e Interrupts 
DataCom. Enable Interrupt s 
System. Port 

(5) Process Description 

System interrupts are temporarily turned ott to 
service this interrupt. The UART Line Status Register -for 

communications port one is read to record any error indications, then 
the Receive Butter Register is read to place the character in the 
receive butter. The butter tail pointer is advanced and an End ot 
Interrupt command is sent to the Programmable Interrupt Controller to 
signal the end ot the interrupt service call. 



d. 


RS232_ISR2 






(1) 


Type: Procedure 






(25 


Purpose: The interrupt 


service routine tor 


communications 


port 


two. 






(3) 


Description ot Parameters: 
Input: An interrupt vector 


call initiated trom 


communications 


port 


two. 








Output: The received character is placed in a 


butter . 


(4) 


Subroutines Called: 
DataCom. Di sabl e Interrupts 
DataCom. Enabl e Interrupts 
System. Port 






(5) 


Process Description 





System interrupts are temporarily turned ott to 
service this interrupt. Tie UART Line Status Register tor 
communications port two is read to record any error indications, then 
the Receive Butter Register is, read to place the character in the 
receive butter. The butter tail pointer is advanced and an End ot 
Interrupt command is sent to the Programmable Interrupt Controller to 
signal the end ot the interrupt service call. 

e. RS_Break 

(1) Type: Procedure 



82 



(2) Purpose: To instruct the LJART on the currently 

selected communications port to send and RS-232 BREAK signal. 

(3) Description of Parameters: 

Input: Current_Com (public) 

Output: A break signal is generated on the 

currently selected communications port. 

(4) Subroutines Called: 

CRT. Delay 
System. Port 

(5) Process Description 

This process ORs the current contents o-f the UART 
Line Control Register with constant LCR_BREAK to instruct the UART to 
send a constant space on the output line. A UART receiving this will 
set its LSR_BREAK to signal a BREAK received. After a delay o-f about 
1/5 second, the line is restored. 



recei ved 



f . 



char a c 



RS232_Avai 1 

(1) Type: Function 

(2) Purpose: Informs 

ters are available to 



the calling 
be read from 



program that 
the current 



communications port . 

(3) Description of Parameters: 

Input: Current_Com (public) 

Output: TRUE if characters available, FALSE 

other wi se, 



(4) Subroutines Called: None. 



(5) Process Description 

The buffer pointers RS_Buf_Head [ Current_Com ] 
and RS_Buf_Tail C Current_Com ] will be equal if the buffer is empty, 
the function returns the result of this test. 



g. Purgeline 

( 1 ) Type: F'r oc ed ur e 

(2) Purpose: Dump the receive buffer and clear the 

UART receive registers. Used to clear the communications line prior to 
an Xmodem packet reception (Christensen, 1982, p. 3). 

(3) Description o-f Parameters: 

Input: Current_Com (public) 

Output: The internal buffers are cleared. 

(4) Subroutines Called: 

System. Port 

(5) Process Description 

The buffer pointers RS_Buf_Head [ Current_Com ] 
and RS_Buf_Ta.il [ Current_Com J are both set to their initial 
conditions (zero) and the UART receive register is read to reset any 
pending receive interrupt. 

h. Connected 

(1) Type: Function 



(2) Purpose: Returns TRUE if the currently selected 

communications port is receiving a hardware handshaking signal, 
indicating the presence of a modem or a directly connected computer. 

(3) Description of Parameters: 

Input: Current_Com (public) 

Output: TRUE if connected, FALSE otherwise. 

(4) Subroutines Called: 

System. Port 

(5) Process Description 

The UART Modem Status Register is read to detect 
the presence of Data Carrier Detect. This line is normally TRUE if a 
modem or computer is connected . 



i . RS_232_Peek 

(1) Type: Function 

(2) Purpose: Nondestructive read of the receive 

buffer of the current communications port. Used to assist Xmodem 
synchronization in Unit Xmodm. 

(3) Description of Parameters: 

Input: Current_Com (public) 

Output: The next available received character. 

(4) Subroutines Called: 

CRT. Delay 

(5) Process Description 

The receive buffer pointers are compared for the 
currently selected communications port. If unequal, a character is 
available. If equal, a short delay is run and the test is repeated. 
When a character is available, it is returned from this function 
without disturbing the pointers. 



j. RS_232_In 

(1) Type: Function 

(2) Purpose: Read the next character from the the 

receive buffer of the current communications port. Used for all port 
reads. 



vo-/ 



(4) 



(5) 



currently selected 
available. If equal 
When a character 



Description of Parameters: 

Input: Cu.rrent_Com (public) 

Output: The next available received character. 

Subroutines Called: 

CRT • De lay 

Process Description 

The receive buffer pointers are compared for the 
communications port. If unequal, a character is 
, a short delay is run and the test is repeated, 
is available, it is returned from this function and 



the buffer head pointer is advanced. 



k. RS_232_0ut 

(1) Type: Procedure. 
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(2) Purpose: Send a character out of the currently 

selected communications port. Used for all port writes. 

(3) Description of Parameters: 

Input: Current_Com (public); and Param, the 

character to be sent. 

Output: The character is sent to the port. 

RS_Error (public) is cleared. 

(4) Subroutines Called: 

CRT. Del ay 

System. Port 

(5) Process Description 

The UART Line Status Register is checked on the 
currently selected communications port to see if the last character has 
been sent. If not, a short delay is runand the test is repeated. When 
the buffer is clear, the port Modem Control Register Request To Send 
and 0UT2 lines are set to insure the hardware is prepared to send a 
character. Next, the corresponding Data Set Ready and Clear To Send 
status lines are checked and short delays run until they are true, if 
the options are selected. Last, the character is sent to the port and 
the error flag is cleared. 

l. Enable 

(1) Type: Procedure 

(2) Purpose: Enable receive interrupts for a 

communications port. 

(3) Description of Parameters: 

Input: IRQ. 

Output: The proper Interrupt Mask Bit in the 

Programmable Interrupt Controller is cleared for the communications 
port . 

(4) Subroutines Called: 

System. Port 

(5) Process Description 

The procedure masks off the selected bit in the 
PIC Interrupt Mask Register. 

m. Disable 

(1) Type: Procedure 

(2) Purpose: Disable receive interrupts for a 

communications port. 

(3) Description of Parameters: 

Input: IRQ. 

Output: The proper Interrupt Mask Bit in the 

Programmable Interrupt Controller is set for the communications port. 

(4) Subroutines Called: 

System. Port 

(5) Process Description 

The procedure sets the selected bit in the PIC 
Interrupt Mask Register. 
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n. Establish 

(1) Type: Procedure 

(2) Purpose: Enable the Data Terminal Ready, 0UT2 and 

Request To Send handshaking bits on the selected communications port. 

(3) Description of Parameters: 

Input: Com, the communications port to be 

enabled. 

Output: The appropriate lines are set. 

(4) Subroutines Called: 

System. Port 

(5) Process Description 

The OR combination of the Data Terminal Ready, 
0UT2 and Request To Send handshaking bits are set. 

o. Send_E0I 

(1) Type: Procedure 

(2) Purpose: Sends a specific End Of Interrupt 

command to the 325? Programmable Interrupt Controller to indicate that 
a particular interrupt has been serviced. 

(3) Description of Parameters: 

Input: IRQ, the interrupt serviced. 

Output: The Interrupt Service Register bit for 

the specific interrupt is cleared. 

(4) Subroutines Called: 

System. Port 

(5) Process Description 

The bit for specific interrupt is OR'd with $60 

and sent to the PIC. 

p. Reset_Chip 

(1) Type: Procedure 

(2) Purpose: To shut down a communications port. 

(3) Description of Parameters: 

Input: Com, the port to be disabled. 

Output; The port is cleared, all handshaking 
lines are cleared, and interrupts are disabled on the UART. 

(4) Subroutines Called: 

System. UpCs.se 
System. Length 

(5) Process Description 

The UART Line Status Register is read repeatedly 
to clear all receive buffers. The system interrupts are disabled to 
prevent further interrupts from this port. The interrupts from the 
UART are disabled, and all port handshaking lines are dropped. The 
Programmable Interrupt Controller interrupt enable line for this port 
is reset. System interrupts are then restored. 

q. RS232_Ini t 

(1) Type: Procedure 

(2) Purpose: Initialise the selected communications 

port . 
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(3) Description of Parameters: 

Input: COM, the port to be initialized; and 

F'arams, the port parameter word. 

Output: The port is initialized. 

(4) Subroutines Called: 

DOS. Intr ($14) , the communications port service 

i nterrupt . 

(5) Process Description 

Com is adjusted to satisfy the requirements of 
Intr($14) and register DX loaded with the communications port to be 
initialized. The packed word, F’arams, is loaded into register AX and 
the interrupt is called. 





r. SelectBi tRate 




(1) 


Type: Procedure 




(2) 


Purpose: Initialize the selected communications 


port . 


(3) 


Description of Parameters: 

Input: COM, the port to be initialized; and 


Speed , 


the data rate 


for the port. 

Output: The port is initialized. 




(4) 


Subroutines Called: 
System. Port 
System. F'ortw 




(5) 


Process Description 



The communications port identified by Com is 
accessed and its Divisor Latch Access Bit is set to access the bit rate 
registers. The Speed parameter is mapped into a 16 bit control word 
and placed in the UART Divisor Latch. The Divisor Latch Access Bit is 
then cleared and the port is allowed to settle. The current baud rate 
setting is stored in the port initialization record for later 
reference. 



s. SelectWordLength 

(1) Type: Procedure 

(2) Purpose: Initialize the selected communications 

port . 

(3) Description of Parameters: 

Input: COM, the port to be initialized; and 

Length, the word length for the port. 

Output: The port is initialized. 

(4) Subroutines Called: 

System. Port 
System. F'ortw 

(5) Process Description 

The Speed parameter is mapped into an 8 bit 
control word and placed in the UART Line Control Register. The current 
length setting is stored in the port initialization record for later 
ref erence. 

t. SelectFraming 

(1) Type: Procedure 
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(2) Purpose: Initialize the selected communications 

port . 

(3) Description of Parameters: 

Input: COM, the port to be initialized; and Stop, 

the number of stop bits for the port. 

Output: The port is initialized. 

(4) Subroutines Called: 

System. Port 
System. F'ortw 

(5) Process Description 

The Stop parameter is mapped into an 8 bit control 
word and placed in the UART Line Control Register. The current stop 
setting is stored in the port initialization record for later 
ref erence. 

u. SelectParity 

(1) Type: Procedure 

(2) Purpose: Initialize the selected communications 

port . 

(3) Description of Parameters: 

Input: COM, the port to be initialized; and P , 

the type of parity for the port. 

Output: The port is initialized. 

(4) Subroutines Called: 

System. Port 
System. F'ortw 

(5) Process Description 

The P parameter is mapped into an 8 bit control 
word and placed in the UART Line Control Register. The current stop 
parity is stored in the port initialization record for later reference. 



v. Send_String 

(1) Type: Procedure. 

(2) Purpose; To send an ASCII string of characters 
out the currently selected COM port. Typically used to send command 
strings to a modem. 

(3) Description of Parameters: 

Input: S, the string to be sent. 

Output: The string is sent out the currently 

selected COM port. 

(4) Subroutines Called: 

DataCom. RS232_0ut 
System. Length 

(5) Process Description 

The string is treated as an indexed array of 
characters, and each character is sent to procedure RS232_0ut in turn. 



w. RS_Ini tial ize 

(1) Type: Procedure. 

(2) Purpose: To set the communications port to the 



input parameters. 
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(3) Description of Parameters: 

Input: Com, the port to be initialised; Speed, an 

enumerated type ranging from 110 baud to 9600 baud; Parity, an 
enumerated type specifying No Parity, Odd, Even, or Don't Care; The 
number of stop bits (1 or 2) and the length of the character word (5, 
6, 7 or 8 bits) . 

(3) Output: The communications port is initialised. 

(4) Subroutines Called: 

DOS. Intr ($14) (BIOS communications port service) 
DOS. Set IntVec 
System. Port 

(5) Process Description 

Com and the input parameters are adjusted for the 
BIOS call. The BIOS call initialises the port, however, it also 
disables UART receive interrupts. These are enabled separately and the 
UART Divisor Latch Access Bit is cleared to insure that further writes 
to the UART will set the proper registers. The UART is recycled and 
the hardware handshaking lines set. Receive interrupts are enabled at 
the UART, and the Programmable Interrupt Controller is enabled for the 
current communications port. The proper interrupt vector for this port 
is set to point to our interrupt service routine. The settings stored 
in data structure CommPort C Com ] for future reference by RS_Restore. 

x. RS_Restore 

(1) Type: Procedure/Functi on 

(2) Purpose: Restores the parameters of the 

communications port to the settings stored in data structure CommPort [ 
Com 3. Used after a child process is spawned to recover communications 
port operations. 

(3) Description of Parameters: 

Input: Com, the communications port to be 

restored 

Output: The selected port is restored. 

(4) Subroutines Called: 

DataCom. RS_Ini ti al i ze 

(5) Process Description 

Com and the parameters stored in Comport [ Com 3 
are used to call RS_Ini ti al i ze. 

y. RS_Eight_Bits 

(1) Type: Procedure 

(2) Purpose: To set the current communications port 

to eight data bits for Xmodm transfers. 

(3) Description of Parameters: 

Input: Current_Com (public) 

Output: The communications port is set for eight 

data bits. 

(4) Subroutines Called: 

System. Port 
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(5) Process Description 

The UART Line Control Register is ORed with $03, 
setting the number of data bits to eight. 



z . 



communications 



communications 



RS_Cleanup 

(1) Type: Procedure 

(2) Purpose: Disables interrupts for the current 

port at the Programmable Interrupt Controller. 

(3) Description of Parameters: 

Input: Current_Com (public) 

Output: The PIC is reset for this interrupt. 

(4) Subroutines Called: 

System. Port 

(5) Process Description 

The interrupt mask bit for the current 
port is set. 



aa. Hex Byte 

(1) Type: Function 

(2) Purpose: Converts a byte into its hexadecimal 

string equivalent for the Unit Exit procedure. 

(3) Description of Parameters: 

Input: B, the byte to be converted. 

Output: _ A string of length two. 

(4) Subroutines Called: None. 

(5) Process Description 

The byte is first shifted right four bits to 
consider only the high order bits, and a character indexed from the 
hexadecimal sequence HexDigit. This is concatenated with the character 
produced by indexing HexDigit by the low order four bits of B to form 
the two digit hex equivalent. 



ab. Hex Word 

(1) Type: Function 

(2) Purpose: Converts a word into its hexadecimal 

string equivalent for the Unit Exit procedure. 

(3) Description of Parameters: 

Input: I, the word to be converted. 

Output: A string of length four. 

(4) Subroutines Called: 

DataCom. HexByte. 

System. Hi 

System. Lo 

(55 Process Description 

HexByte is called with both the high and low order 
bytes of the word, and the resulting function results concatenated to 
produce a. four digit hex equivalent. 

ac. DataComm_Error 

(1) Type: Procedure 
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(2) Purpose: Provides a robust means of handling 

program -faults while still insuring that interrupts are restored. 

(3) Description of Parameters: 

Input: System variables ExitCode, a word that 

gives an indicaton of why program termination occured; and ErrorAddr, a 
pointer containing a runtime error address if nonzero; 

Output: The procedure writes any error messages 

desired to the display and resets any interrupt vectors to their state 
before program execution. 

(4) Subroutines Called: 

Dos. SetlntVec 
System. Assi gn 
System. Rewri te 
DataCom. Hex 

(5) Process Description 

This procedure is chained in to the normal exit 
processing that the compiler installs for the unit and the unit 
initial ization code. It must be compiled using the Far Call model to 
be accessible by the program runtime library. The procedure first 
checks ExitCode and ErrorAddr for abmormal program termination and sets 
Output to the standard file output for display to allow error message 
display. The procedure then reports a USER BREAK or runtime error and 
address if applicable. The program then insures any interrupt vectors 
are restored and the communications ports are shut down. The 
Programmabl e Interrupt Controller Interrupt Mask Register is restored 
from a saved location. Finally, the original exit code for this unit 
is restored from a saved location for use by the runtime system 
(TurboPascal Owner' Handbook, pp. 369-370). 

ad. DataCom Unit Initialization Code 

(1) Type: Procedure 

(2) Purpose: Initializes the Unit, stores critical 

vectors and registers for restoration on program termination. 

(3) Description of Parameters: 

Input: System variables ExitProc, a pointer that 

gives the address of the DataCom unit exit procedure in the runtime 
1 i brary . 

Output: The procedure DataComm_Error is linked in 

before the runtime exit procedure to accomplish an orderly termination 
of the unit. 

(4) Subroutines Called: 

Dos. Get IntVec 
System. Port 

(5) Process Description 

The procedure first sets CRT. CheckBreak to TRUE to 
allow user termination of the program. A pointer to the runtime exit 
procedure is saved, as well as the current settings for the 
Programmable Interrupt Controller Interrupt Mask Register for 
restoration on exit. Get IntVec is used to save the current interrupt 
vectors for communications ports one and two for restoration on exit. 
The communications port buffers are cleared, and the unit supplied exit 
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p^oCBduf b DataComm_Error is linkBd in to thB runtimB systBfn 
(TurboPascal Ownsr ' Handbook, pp. 369-370). Finally, thB two 
communications ports arB assignsd dsfault paramstsrs, although not 
initializsd at this tims. 
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APPENDIX F 



MAINTENANCE MANUAL FOR UNIT DIRECTOR 



A. UNIT DIRECTOR 

1. Con-figuration Information 

a. Language - Turbo Pascal Version 4.0 

b. Compiler Version - 4.0 

c. Target Hardware - IBM PC/AT or close compatible 

d. Operating System - Microsoft MS-DOS (Version 3.x) 

e. Program Description 

Director is a set of functions and procedures that 
allow the output MS DOS file directories to a windowed environment. 
Masking options and a selector for normal or abbreviated (similar to 
the MS-DOS /w switch) displays are allowed. 

2. Subroutines Contained 

a. StandBy 

(1) Type: Procedure 

(2) Purpose: Used internally by ShowDir, this 

procedure displays an operator prompt to pause long listings. The 
procedure exits when a. key is pressed. 

(3) Description of Parameters: 

Input: Operator input from System. ReadKey 

Output: Prompt information to the window supplied 

by the calling program. 

(4) Subroutines Called: 

CRT. SoToXY 

CRT. Hi ghVi deo 
CRT. Where X 
CRT. Where Y 
System. ReadKey 

(5) Process Description 

The procedure notes the position of the cursor, 
writes a prompt to the operator , and waits until the operator presses a 
key. The procedure then blanks the prompt, and exits. 

b. View_Dir 

(1) Type: Procedure 

(2) Purpose: Provides the selective display of a 

directory, with the filenames and subdi rector i es displayed in summary 
form (no date, size or attribute data). 

(3) Description of Parameters: 

Input: Ma.tchPtrn, which specifies the path and 

wildcard options; FromLine and ToLine, which specify the window size. 
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Output: To the window supplied by the calling 

program. 

(4) Subroutines Called: 

CRT. GoToXY 

CRT. HighVideo 
CRT. Lowvi deo 
DOS. Fi ndFi rst 
DOS. FindNext 

(5) Process Description 

The procedure positions the cursor at column one 
o-f the line speci-fied in FirstLine, then utilizes the procedure 
FindFirst to -find any -file or directory matching MatchPtrn. This sets 
up the DOS unit -for subsequent searches. The -first entry -found is 
displayed and then FindNext is used -for subsequent entries until the 
directory is exhausted. Subdirectories are displayed in highlighted 
video for ease of recognition in this summary display. 



c. WriteEntry 

(1) Type: Procedure 

(2) Purpose: Displays the complete file or directory 

information of attributes, size, date and time for procedure ShowDir. 

(3) Description of Parameters: 

Input: Dir Info, a DOS Unit structure that 

contains packed information about the most recently found directory 
entry; line, the window line to display the information on. Output: 
To the window supplied by the calling program. 

(4) Subroutines Called: 

GetAttri but 
CRT.GoToXY 

CRT, Hi ghVi deo 
CRT. Lowvi deo 
DOS. FindFirst 
DOS. FindNext 
DOS. UnPackTime 

(5) Process Description 

The procedure calls library procedures in the DOS 
unit to unpack the time entry in Dirlnfo. GetAttribut maps the 
attribute order to a string representation. The name, "<DIR>" 
designation or file size, creation date and time, and the attribute 
string are then written on the display at Line in MS-DOS format. 



d. 


GetAtti rbut 






(1) 


Type: Procedure 






(2) 


Purpose: Map an MS-DOS attribute number 


to a text 


string . 


(3) 


Description of Parameters: 

Input: attr, the ordinal MS-DOS 


attribute 


combination. 









Output: attribut, a string to return the text, 

string representation of the attribute. 

(4) Subroutines Called: 



System. Str 
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(5) Process Description 

The attr variable is used as a selector in a case 
construct to load attribut with the proper string. I-f the variable 
does not map, the hexadecimal number in the variable attr is converted 
to a string tor display. 



e. Show_Dir 

(1) Type: Procedure 

(2) Purpose: Provides the selective display of a 

directory, with the filenames and subdi rector i es displayed in summary 
form (no date, size or attribute data). 

(3) Description of Parameters: 

Input: MatchPtrn, which specifies the path and 

wildcard options; FromLine and ToLine, which specify the window size; 
error, which reports DOSerror back to the calling program. 

Output: To the window supplied by the calling 



program. 

(4) Subroutines Called: 

CRT.ClrEOL 

CRT . Cl rScr 
CRT. GoToXY 
CRT. Hi ghVi deo 
CRT. Lovi deo 
Director. WriteEntry 
DOS. Fi ndFi rst 
DOS. Fi ndNext 
System. INC 

(5) Process Description 

The procedure utilizes the procedure FindFirst to 
find any file or directory matching MatchPtrn. This sets up the DOS 
unit for subsequent searches. Depending on the state of DOS. DOSError , 
which indicates error conditions on the attempt to find a directory 
entry, the entry is either displayed via WriteEntry or an error or 
status message is displayed and the procedure exits. The first entry 
found is displayed and then Fi ndNext is used for subsequent entries 
until the directory is exhausted. For directories that exceed the 
window size specified by FromLine and ToLine, the display is paused by 
a. call to the procedure StandBy and the operator is allowed to press a 
key to continue. 
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APPENDIX 6 



MAINTENANCE MANUAL FOR UNIT ERRORCOD 



A. 



UNIT ERRORCOD 



1. Configuration Information 

a. Language - Turbo Pascal Version 4.0 

b. Compiler Version - 4.0 

c. Target Hardware - IBM PC/AT or close compatible 

d. Operating System - Microsoft MS-DOS (Version 3.x) 

e. Program Description 

ErrorCod is a array of string constants mapped by the 
Error Class, Recommended Error Action and Error Locus 



DOS Error Code 



4.254 - 4. 






) . The 



indices found in (Microsoft, 1986, pp. 3-1 - 3.11, 
unit is used by the units Parser, Spawn and the program Distrib to 
report errors. A procedure is also provided to retrieve extended error 
code information available in MS-DOS versions 3.0 and above by DOS 
function call $59. 



2. Subroutines Contained 



a. Extended_Error_Code 

(1) Type: Procedure 

(2) Purpose: To return the extended error code, class 

and locus information available in MS DOS version 3.0 and later, in 
response to a D0SERR0R result. 

(3) Description of Parameters: Extended_Error_Code 

returns the Error Code, Error Class and Error Locus in the respective 
var i ab 1 es . 

(4) Subroutines Called: 

DOS. Intr ($21) 

(5) Process Description 

This procedure calls DOS function $59 with 
register BX = 0 to get extended error information from MS DOS following 
an operating system error flag, as indicated by the Turbo Pascal 
variable D0SERR0R > 0. 
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APPENDIX H 



MAINTENANCE MANUAL FOR UNIT GENERAL 



A. UNIT GENERAL 

1. Configuration Information 

a. Language - Turbo Pascal Version 4.0 

b. Compiler Version - 4.0 

c. Target Hardware - IBM PC/AT or close compatible 

d. Operating System - Microsoft MS-DOS (Version 3.x) 

e. Program Description 

General is a collection of general purpose routines 
that support the Wndow Unit and other modules. 

2. Subroutines Contained 

a. FillWord 

(1) Type: Procedure 

(2) Purpose: Given a variable, V, the procedure fills 

Num words in the variable with integer Value. 

(3) Description of Parameters: 

Input: Variable V; Num, the number of words to be 

filled; and Value, the fill value. 

Output: V is returned after filling. 

(4) Subroutines Called: 

Inline assembly 

(5) Process Description 

Register DI is initialized with the starting 
offset of the variable V, CX contains the number of words to be filled, 
and AX contains the Value to be used to fill. The ST03W instruction 
autoincrements the DI register after each store and decrements CX. The 
loop ends when CX = 0. Using assembly language string processing 

instructions, the procedure uses the DI index register to point to the 
memory iterates a store operation with the 16 bit word Value beginning 
at the first location in V and continuing for Num iterations, 
incrementing the storage location by a 16 bit word each time. 

b. Exchange 

(1) Type: Procedure 

(2) Purpose: Exchange the contents of two variables 

without compatibility checking. 

(3) Description of Parameters: 

Input: S, D are the variables to be exhanged, and 

L is the number bytes to be exchanged. 
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Output: The variables S and D are returned after 

the exchange. 

(4) Subroutines Called: 

Inline assembly 

(5) Process Description 

Register DI is loaded with the offset of variable 
S, register SI with that of D. CX receives L. The value at variable 
D, indexed by DI , is loaded into AX and exchanged with the value at 
variable S, indexed by SI. STOSB autoincrements both index registers 
and decrements CX. The loop stops as CX reaches 0. 

c . Beep 

(1) Type: Procedure 

(2) Purpose: Produce a speaker tone for 1/4 second. 

(3) Description of Parameters: 

Input: Freq, the desired tone frequency. 

Output: A speaker tone. 

(4) Subroutines Called: 

CRT. Del ay 

CRT. Sound 
CRT. NoSound 

(5) Process Description 

CRT procedures NoSound and Sound operate in 
tandem. First the speaker is silenced. Then, the Sound procedure in 
the CRT Unit is called with parameter Freq and a. delay of 1/4 second is 
allowed before turning the speaker off again. 

d. Max 

(1) Type: Function 

(2) Purpose: Returns the larger of two integers. 

Typically used with Open_Window to insure the window is large enough to 
hold a menu d i sp 1 ay . 

(3) Description of Parameters: 

Input: X, Y, the integers to be compared. 

Output: The larger integer of the input 

parameters. 

(4) Subroutines Called: None. 

(5) Process Description 

The two integers are compared and the function 
result equated to the larger. 

e. Min 

(1) Type: Function 

(2) Purpose: Returns the smaller of two integers. 

Typically used with Qpen_Window to insure the window is large enough to 
hold a. men u display. 

(3) Description of Parameters: 

Input: X, Y, the integers to be compared. 

Output: The smaller integer of the input, 

parameters. 

(4) Subroutines Called: None. 
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(5) Process Description 

The two integers are compared and the -Function 
result equated to the smaller. 



f. Cursor_Size 

(1) Type: Function 

(2) Purpose: Sets the cursor displayed as either an 

underline or a block. 

(3) Description of Parameters: 

Input: Cursor_Type an enumerated type consisting 

of line, block or invisible. Mono is TRUE if the display is 
monochrome, FALSE if color. 

Output: The video card is updated to display the 

selected cursor. 



service, 

requested 



(4) Subroutines Called: 

DOS. Intr ($10) (video service) 

(5) Process Description 

Register AX is set to $10 to call the BIOS video 
and the CX register is set to the proper value for the cursor 
pr i or to the cal 1 . 



g. Get_Time 

(1) Type: Function 

(2) Purpose: Returns a string with the current time. 

(3) Description of Parameters: 

Input: Nothing. 

Output: A string with the current time in format 

HH : MM : SS xM. 

(4) Subroutines Called: 

DOS. Intr ($21 ) (DOS service) 

System. Str 

(5) Process Description 

Register AH is set to $2C to call the DOS time 
service, and the CH, CL, DH and DL return the ordinal number for hours, 
minutes, seconds and hundreths of seconds (Norton, 1985, p. 287). The 
Turbo Pascal Str procedure is used to convert each number into a string 
representati on . The strings are then concatenated with formatting 

characters and AM or PM notations. 
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APPENDIX I 



MAINTENANCE MANUAL FOR UNIT MISCPACK 
A. UNIT Miscpack 

1. Configuration Information 

a. Language - Turbo Pascal Version 4.0 

b. Compiler Version - 4.0 

c. Target Hardware - IBM PC/AT or close compatible 

d. Operating System - Microsoft MS-DOS (Version 3.x) 

e. Program Description 

Miscpack is a collection of data types and utility 
routines supporting these other units: Xmodm, Parser , Spawn, Redirect, 

and the main program Distrib. The strong typing features of Turbo 
Pascal require that instances data types in different units that must 
be equated be declared in one place to be compatible at compile time. 

2. Subroutines Contained 



a. BumpStrup 

(1) Type: Procedure 

(2) Purpose: To convert any string to upper case 

characters. 



(3) Description of Parameters: S is the formal 

variable for a string of any length, since length checking is relaxed. 

(4) Subroutines Called: 

System. UpCase 
System. Length 

(5) Process Description 

This procedure returns the string as a call by 
reference parameter after converting ail of the characters making up 
the string to uppercase. 
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APPENDIX J 



MAINTENANCE MANUAL FOR UNIT PARSER 



A. UNIT PARSER 

1. Configuration Information 

a. Language - Turbo Pascal Version 4.0 

b. Compiler Version - 4.0 

c. Target Hardware - IBM PC/AT or close compatible 

d. Operating System - Microsoft MS-DOS (Version 3.x) 

e. Program Description 

The central procedure in this unit is Parser_Main, 
which attempts to parse and execute an MS-DOS style command on the 
local machine. The remaining procedures and functions support this 
function. 



2. Subroutines Contained 

a. argc 

(1) Type: Function 

(2) Purpose: Returns the number of arguments in the 

command line parsed by the procedure Parse. Parse must be called 
before this function is valid. 

(3) Description of Parameters: 

Input: None. 

Output: The number of arguments in the command 

line last parsed. 

(4) Subroutines Called: 

(5) Process Description 

argc is set to the variable arg_count, which is 

loaded by Parse. 

b. argvO 

(1) Type: Function 

(2) Purpose: Return the arg_count'th argument 

encountered on the last command line parsed by procedure Parse. Parse 
must be called before this function is valid. 

(3) Description of Parameters: 

Input: ar g_count, the index of the argument 

desired, arg_array, the index to the arguments indexed, and arg_string, 
a copy of the command. 

Output: A string, up to 128 characters long, 

containing the arg_count'th argument. 

(4) Subroutines Called: None. 
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(5) Process Description 

Following a call to procedure Parse, the data 
structure arg_array is loaded with the relative index of the start of 
each argument in the command line parsed, and the length of that 
argument. A length of zero at that index indicates no argument was 
found. To construct the arg_count'th argument, the command saved in 
arg_string is copied starting at the index saved in the index field in 
the arg_count'th record of array arg_array, for the length field in the 
same record. 

c. Init_Parse 

(1) Type: Procedure 

(2) Purpose: To parse the input string for 

Parser_Main, and initialize the component strings for later use. 

(3) Description of Parameters: 

Input: Command_s, an input parameter for 

Parse_Mai n . 

Output: Pathspec is set to argv(O), the remaining 

drive, node, and name strings are parsed. 

(4) Subroutines Called: 

Parse. argv (0) 

Parse. F'arseName 

(5) Process Description 

This procedure is local to F‘arse_l v lain, and is used 
any time the command string being parsed is first parsed, or after the 
command has been modified. 

d. Parse 

(1) Type: Procedure 

(2) Purpose: Set up the argv and arc functions for a 

command line received. 

(3) Description of Parameters: 

Input: Command, a string variable containing the 

command to be parsed. 

Output: arg_array and arg_count are private 

variables visible inside this unit. 

(4) Subroutines Called: 

System. Inc 

System. Length 

(5) Process Description 

First, a copy of the command is retained outside 
this procedure in arg_string for later use by argv. Arg_array is then 
initialized to clear old parsing actions, and arg_count is initialized 
to zero to act as an index for arg_array. The cycle begins by skipping 
leading whitespace in the command. When the first non whitespace 
character is encountered, the index of the string is noted in the 
arg_count ' th record of arg_array and non whitespace characters are 
skipped while incrementing the length field to determine the length of 
the argument. Upon reaching whitespace again, the next record in, 
arg_array is selected and the cycle repeats until the end of the string 
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is reached. arg_array, arg_count and arg_string are retained in 
variables private to the unit -for future ust. 



e. ParseName 

(1) Type: Procedure 

(2) Purpose: Break a complete filename with path and 

drive into its component parts. 

(3) Description of Parameters: 

Input: inName is a composite drive, path and 



filename string. 

Output: The component file name, extension, name 

and extension, path, drive and node (if any) in inName. 

(4) Subroutines Called: 

System. Copy 
System. Del ete 
System. Length 

(5) Process Description 

The syntax for inName is: 

[Node: : DC Drive: DC\3directory[\directory\Df ilespecC/Swi tchD , similar to 
the MS-DOS command line syntax with the exception of the node 
designator, which was intended for use with commands intercepted by a 
background process. The procedure scans the command line backwards, 
looking for the delimiters established in the constants Path_or_dr i ve 
and Hode_or_drive. When such delimiters are found, the suceeding 
substring is copied into the appropriate output variable and the 
command is truncated to continue the scan until the first character is 
reached. The filename, if any, is then broken down similarly into its 
component name and extension (Swan, pp. 26-27). 



argument in 
specification 



f . Resol ve_Command 

(1) Type: Function 

(2) Purpose: This procedure is passes the first 

a command line and attempts to create a complete path 
and match the filename to a command normally handled 

internally by the DDS command processor or to an executable file in the 
specified directory. Relative directory citations are adjusted to a 
path from the root directory. Parser_Main sets up the component parts 
of the first argument via Parse_Name and places them in the variables 
immediately above this function. 

(3) Description of Parameters: 

Input: Argurement, the first parameter in the 

command line from Parser_Main. 

Output: Argument, corrected to a complete path 

specification and filename extension. The function returns the type of 



file detected (batch file, com file, 



pathstring or other 

(4) 



file) as an enumerated 
Subroutines Called: 
System. GetDi r 
DOS. FindFirst 
DOS. FindNext 



executable 

type. 



file, directory, 
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(5) Process Description 

Resol ve_command first determines the current 
directory with GetDir, and adjusts any relative directory path 
specif ication found in argument to a full path specif ication complete 
with drive and root directory, if needed. This is needed by the Exec 
function called by Parser_Main. If no file extension was parsed by 
Parse_Name, Resol ve_Command attempts to find an executable file in the 
directory cited by the now complete path specification by finding a 
file with the same name and an "COM", "EXE", or "BAT" extension. They 
are searched for in reverse priority so that the Exec call will attempt 
to execute the filename with the highest rank, as Command. Com does 
(Mefford, 1988, p. 336) and the file type is identified. If the 
command did cite a filename with extension, the file type is 
identified. The file type is returned by the function for Parser_Main. 
If an executable file was not found, a check is made to see if a 
directory by that name exists, otherwise a general pathname type is 
returned . 



g. Parser_Main 

(1) Type: Procedure 

(2) Purpose: This procedure parses a command received 

by the Slave and attempts to execute it. 

(3) Description of Parameters: 

Input: Command_s, the received command string. 

Output: Response and Error_Msg are strings 

containing either the command output and error messages, respectively, 
or filenames containing the information. Restype and Errtype tell the 
calling program what Response and Error_Msg contain. Prompt is the 

current directory for return to the Master via the 
after the response is competed. 



local machine 
calling program 



(4) 



/S' 



to be executed, 
and then a special case is checked to 
requested (e.q., "C:"). If so, 



Subroutines Called: 

Parser. InitParse 
Parser . Match_Command 
Parser . Resol ve_Command 
Parser . Parse 
Parser . ParseName 
Parser . argc 
Parser . argv ( ) 

Spawn. Match_Command 

Spawn . Process_i ntr i nsi c_command 

Spawn. Ru.n_ local 

System. Length 

Process Description 

On entry, command_s contains the complete command 
Its component arguments are isolated by Init_Parse, 



see if a simple drive change is 
the internal DOS command "CD" is 



prefixed to the command and it is re-parsed. The filename in the first 
argument is checked by Spawn . Match_Command against a set of commands, 
that this program handles internally. This is a subset of the MS-DOS 
internal commands: Change Directory, Copy, Delete, Directory, Erase, 
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Make Directory, Remove Directory, Rename and their abbreviated forms. 
If matched, the command is passed to Spawn . Process_Intri ni si c_Command 
for execution and collection of responses. If not, the file type 
returned by Resol ve_Command is used as a case selector to either run an 
executable file via Spawn. Run_Local , or a syntax error indication is 
returned to the calling program. If executable, the command (program 
name) is separated from the following command tail and passed to 
Run Local . 
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APPENDIX K 



MAINTENANCE MANUAL FOR UNIT REDIRECT 



A. UNIT REDIRECT 



allow the 
the main 
ends, the 
on the scr 



Con-figuration In-formation 

a. Language - Turbo Pascal Version 4.0 

b. Compiler Version - 4.0 

c. Target Hardware - IBM PC/AT or close compatible 

d. Operating System - Microso-ft MS-DOS (Version 3.x) 

e. Program Description 

Redirect is a set of functions and procedures that 
output of programs spawned under the Slave computer's copy of 
program Distrib to be redirected to files. Once the program 
Slave computer can then forward the output normally displayed 
een to the Master computer for display. 



2. Subroutines Contained 



a. Ini t_Redirect_Unit 

(1) Type: Procedure 

(2) Purpose: To reverse the Turbo Pascal 

initialization of the Pascal standard files Input and Output to the CRT 
Unit in preparation for redirection. 

(3) Description of Parameters: None. This procedure 

reassigns the Pascal standard files Input and Output. 

(4) Subroutines Called: 

System. Assi gn 
System. Reset 
System. Rewrite 

(5) Process Description 

The Turbo Pascal Version 4.0 reference manual 
indicates that the initial ization code found in standard Unit CRT 
assigns the Pascal standard test files Input and Output to the CRT 
Unit. In order to accomplish I/O redirection, these files must be 
rereferenced to the standard input and output. The above subroutines 
accomplish this. 



b. Dupl icate_Handle 

(1) Type: Function 

(2) Purpose: Returns a second handle that refers to 
the same file (or device) as the variable Handle. Used to save the 
reference to standard I/O for later restoration after redirection ends. 

(3) Description of Parameters: Handle is the file' 
handle to be duplicated. ErrorNum is a variable for an MS-DOS error 
code returned in the AX register if the MS-DOS function call fails. 
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(4) Subroutines Called: 

DOS. Intr ($21) 

(5) Process Description 

The DOS. Intr ($21 ) call is to the Dupl i cate_Handl e 
■function, $45. The function returns another handle of type word. 

c. Close_File_Handle 

(1) Type: Function 

(2) Purpose: Closes a file handle that refers to a 

file or device. Used to terminate I/O to the standard input or output 
handle when redirected, and to dispose of the redirection handle. 
ErrorNum is a variable for an MS-DOS error code returned in the AX 
register if the MS-DOS function call fails. 

(3) Description of Parameters: Handle is the file 

handle to be closed. 

(4) Subroutines Called: 

DOS. Intr ($21) 

(5) Process Description 

The DOS. Intr ($21 ) call is to the Close_Handle 
function, $3E. ErrorNum is returned with an MS-DOS error code if the 
call fails, as indicated by a FALSE function result. 

d. Redirect_Handle 

(1) Type: Procedure 

(2) Purpose: Forces a handle used by the system for 

standard input or output to be redirected to the same file or device as 
another handle. The file or device originally pointed to may then 

closed. I/O to the standard input or output handle now appears at the 
same file or device as the handle redirected to. 

(3) Description of Parameters: Handle is the file 

handle pointig to the file or device to be redirected to, Red_Handle is 
the standard I/O handle to be redirected. 

(4) Subroutines Called: 

DOS. Intr ($21) 

(5) Process Description 

The DOS. Intr ($21 ) call is to the FDup_Handle 
function, $46. ErrorNum is returned with an MS-DOS error code if the 
call fails. On return the redirected standard I/O handle now operates 
through the file or device of Handle. 



e. Redi rect_Std_Output 

(1) Type: Function 

(2) Purpose: Redirects Standard Output to a file of 

our choosing. 



(3) 

standard output file 
the file that output 

(4) 



Description of Parameters: StdOut is the MS-DOS 

handle to be redirected. Std_Output_Fi le_Temp is 
will be redirected to. 

Subroutines Called: 

Redi rect . Dupl i cate_Handl e 
Redi rect . Redi rect Handle 
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(5) Process Description 

The temporary output -file is opened, a handle 
pointing to StdOut is saved and then StdOut is -forced to point to our 
output file. 

f . Restore_Std_Output 

(1) Type: Function 

(2) Purpose: Restores the saved standard Output to 

its previous state, sets a variable Response_Fi 1 e to the name of the 
file holding the redirected output to end redirection. 

(3) Description of Parameters: StdOut is the MS-DOS 

standard output file handle that was redirected. Std_Output_Fi le_Temp 
is the file that output was redirected to. Saved_Std_Out is the handle 
that points to the original standard Output. 

(4) Subroutines Called: 

Redirect . Cl ose_Fi 1 e_Handl e 
Redirect . Redi rect_Handl e 

(5) Process Description 

StdOut, the file handle for standard output is 
reset to point to Saved_Std_Out , the temporary file Std_Output_Fi 1 e is 
closed for writing, and the variable Response_Fi 1 e is set to the name 
of the temporary file if no errors are encountered, otherwise NIL. 



g. Redirect_Std_Input 

(1) Type: Function 

(2) Purpose: Redirects standard Input to be drawn 

from a file of our choosing. 

(3) Description of Parameters: Stdln is the MS-DOS 

standard input file handle to be redirected. Std_Input_Fi 1 e_Temp is 
the file that input will be redirected from. 

(4) Subroutines Called: 

Redi rect . Dupl i cate_Handl e 

Redirect . Redi rect_Handl e 

(5) Process Description 

The temporary input file is opened for reading, a 
copy of the handle pointing to Stdln is saved and then Stdln is forced 
to point to our input file. 



h. Restore_Std_Input 

(1) Type: Function 

(2) Purpose: Restores the saved standard Input to its 

previous handle, and closes the input file to end redirection. 

(3) Description of Parameters: Stdln is the MS-DOS 

standard input file handle that was redirected. Std_Input_Fi 1 e_Temp is 
the file that input was redirected from. Saved_Std_In is the handle 
that points to the original standard Input. 

(4) Subroutines Called: 

Redirect. Cl ose_Fi 1 e_Handl e 
Redi rect . Redi rect Handle 
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(5) Process Description 

Stdln, the -file handle -for standard input is reset 
to point to Saved_Std_In , the temporary -file Std_Input_Fi 1 e is closed 
■for reading. The function returns TRUE if no file errors are detected. 



i. Redirect_5td_Error 

(1) Type: Function 

(2) Purpose: Redirects standard Error to be sent to a 

file of our choosing. 

(3) Description of Parameters: StdErr is the MS-DOS 

standard error file handle to be redirected. Std_Error_Fi 1 e_Temp is 
the file that error will be redirected to. 

(4) Subroutines Called: 

Redirect . Dupl i cate_Handl e 
Redirect . R'edirect_Handle 

(5) Process Description 

The temporary error file is opened for writing, a 
copy of the handle pointing to StdErr is saved and then StdErr is 
forced to point to our error file. 



j. Restore_Std_Error 

(1) Type: Function 

(2) Purpose: Restores the saved standard Error to its 

previous handle, and closes the error file to end redirection. 

(3) Description of Parameters: StdErr is the MS-DOS 

standard error file handle that was redirected. Std_Error_Fi le_Temp is 
the file that Error was redirected to. Saved_Std_Error is the handle 
that points to the original standard Error. 

i 4) Subroutines Called: 

Redirect . Cl ose_Fi 1 e_Handi e 
Redirect. Redi rec t_Handl e 

(5) Process Description 

StdErr, the file handle for standard error is 
reset to point to Saved_Std_Error , the temporary file Std_Error_Fi le is 
closed for reading. The function returns TRUE if no file errors are 
detected . 



standard 

standard 
the file 
standard 
the file 



poi nting 



k. Redirect_Al l_Output 

(1) Type: Function 

(2) Purpose: Redirects both standard error and 

output to a file of our choosing. 

(3) Description of Parameters: StdOut is the MS-DOS 

output file handle to be redirected. Std_Output_Fi le_Temp is 

that output will be redirected to. StdErr is the MS-DOS 
errort file handle to be redirected. Std_Error_Fi le_Temp is 
that output will be redirected to. 

(4) Subroutines Called: 

Redirect. Dupl icate_Handle 
Redirect . Red i rec t _Hand 1 e 

(5) Process Description 

The temporary output file is opened, a handle 
to StdOut is saved and then StdOut is forced to point to our 
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output file. The process is repeated for StdErr, except that it is 
redirected to the same output file. 

l . Restore_Al 1 _Output 

(1) Type: Function 

(2) Purpose: Restores the saved standard output and 

error to their previous states, sets a variable Response_Fi 1 e to the 
name of the file holding the redirected output to end redirection. 

(3) Description of Parameters: StdQut is the MS-DOS 

standard output file handle that was redirected. Std_Output_Fi 1 e_Temp 
is the file that output was redirected to. Saved_Std_Out is the handle 
that points to the original standard Output. StdErr is the MS-DOS 
standard output file handle that was redirected. Std_Error_Fi le_Temp 
is the file that output was redirected to. Saved_Std_Err is the handle 
that points to the original standard Error. 

(4) Subroutines Called: 

Redirect. Close_Fi le_Handle 
Redirect. Redi rect_Handl e 

(5) Process Description 

StdOut, the file handle for standard output is 
reset to point to Saved_Std_Out , the temporary file Std_0utput_Fi 1 e is 
closed for writing. StdErr, the file handle for standard error is 

reset to point to Saved_Std_Err , the temporary file Std_Error_Fi 1 e is 
closed for writing, and the variable Response_Fi 1 e is set to the name 
of the temporary file if no errors are encountered, otherwise NIL. 

m. Restore_CRT_Assignments 

(1) Type: Procedure 

(2) Purpose: To set the standard Input and Output 

files to textdrivers in the CRT Unit. Faster inoput and output is 

obtai ned . 

(3) Description of Parameters: None. This procedure 

reassigns the Pascal standard files Input and Output to CRT. AssignCRT ( 
Input ) and CRT. AssignCRT ( Output ). 

(4) Subroutines Called: 

System. Assi gnCRT 
System!. Reset 
System. Rewrite 

(5) Process Description 

The assignments restore the input and output 
standard files to the CRT unit. 
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APPENDIX L 



MAINTENANCE MANUAL FOR UNIT SPAWN 



A. UNIT SPAWN 

1. Configuration Information 

a. Language - Turbo Pascal Version 4.0 

b. Compiler Version - 4.0 

c. Target Hardware - IBM PC/AT or close compatible 

d. Operating System - Microsoft MS-DOS (Version 3.x) 

e. Program Description 

This unit detects commands that should be processed 

internally by the Distrib program, and executes commands internally or 
by spawning a child process. Command output and error responses are 
returned to the caller either as strings suitable for conversion to 
Xmodm buffers, or by reference to files containing the text. This unit 
also contains the redirection switch as a public variable that dictates 
whether program output will be redirected to a file or displayed 

locally on the screen. This switch is normally set to redirect to 

file. 

2. Subroutines Contained 

a. Match_Command 

(1) Type: Function 

(2) Purpose: To search a command string for a substring 

that matches a command to be processed internally by the Slave program. 

(3) Description of Parameters: 

Input: Filespec is a command stripped of path 
specification, or leading or trailing spaces. 

Output: The function returns TRUE if a match was 

found, along with an enumerated type matching the command, FALSE 
otherwi se. 

(4) Subroutines Called: 

System. Length 

System. F’os 

(5) Process Description 

A substring search is conducted using the enumerated 
internal command type to index an array of strings containing the 
command names. The internal command must be matched by exact 
replication and must be positioned as the first substring in FileSpec. 

b. Process_Intrinsic_Command 

(1) Type: Procedure 
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(2) Purpose: This procedure executes an internal 

command detected by Match_Command . This procedure, and Run_local, 
execute commands for Spawn . Parser_Mai n . 

(3) Description of Parameters: 

Input: Command, the enumerated type specifying the 

internal command. Command_tail are the parameters for the internal 
command . 

Output: Response and Error_Msg are strings 

containing either the command output and error messages, respectively, 
or filenames containing the information. Restype and Errtype tell the 
calling program what Response and Error_Msg contain. Prompt is the 
local machine current directory for return to the Master via the 
calling program after the response is competed. 

(4) Subroutines Called: 

System. ChDi r 
System. GetDi r 
System. Mkdi r 
System. RmDir 

(5) Process Description 

The Command parameter is used in a CASE construct 
select commands that are completed by Turbo Pascal functions and 
procedures, and to pass other internal commands to Run_local to spawn a 
copy of the MS-DOS command processor and run the command. This 
approach is taken to greatly simplify the command parsing and 

execution, since these requirements can be offloaded to the spawned 
command processor for commands with complex processing requirements 
such as DIR. Batch_mode is set to signal Run_Local to spawn a copy of 
the command processor rather than attempting to execute the command as 
a program. 



c. Run_Local 

(1) Type: Procedure 

(2) Purpose: This procedure executes all command that 

nd detected by Match_Command . This procedure, and 

Process_Intr i si c_Command , execute commands for Spawn . Parser_Mai n . 

(3) Description of Parameters: 

Input: Program_name , the name of the command or 

file to be executed; Command_l ine, the arguments for the command or 
file; and Batch, which signals that a copy of the MS-DOS command 
processor is to be used to run the program for batch files and certain 
internal MS-DOS commands. 

Output: Response and Irror_Msg are strings 

containing either the command output and error messages, respectively, 
or filenames containing the information. Restype and Errtype tell the 
calling program what Response and Error_Msg contain. Prompt is the 
local machine current directory for return to the Master via the 
calling program after the response is competed. 

(4) Subroutines Called: 

Redirection . Ini t_Redi recti on_Uni t 
Redirection . Redi rect_Al 1 _0utput 
Redirection. Restore_Al l_Qutput 
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Redirection . Restore_CRT_Assi gnments 
Support. Find_Environment 
System. ChDir 
System. GetDir 
System. UpCase 
System. Length 
(5) Process Description 

CRT. CheckBreak is set to allow an operator to 
terminate execution of a runaway program. If the Batch flag is set, 
the command is adjusted to execute a copy of CDMMAND.COM and the 
original command and arguments are moved to command tail. 
Find_Environment is used to locate the explicit path specification and 
file name for COMMAND.COM, as required by the Exec procedure. The 
current directory is saved to return the program to its working 
directory after command execution. If the Redirection flag has been 
set, call 5 are made to the Redirection Unit to route all subsequent 
program output to files visible in the Redirection Unit. This 
redirection is inherited by any programs spawned from this program by 
Exec (Greco, 1937, p. 25). Exec is then called to spawn the 
program(s). On return, the standard output handles are restored and 
the original working directory restored as a precaution. 



APPENDIX M 



MAINTENANCE MANUAL FOR UNIT SUPPORT 



A. UNIT SUPPORT 

1. Configuration Information 

a. Language - Turbo Pascal Version 4.0 

b. Compiler Version - 4.0 

c. Target Hardware - IBM PC/AT or close compatible 

d. Operating System - Microsoft MS-DOS (Version 3.x) 

e. Program Description 

The Support Unit contains most of the constant 

decl arati ons for the program, along with the i ni ti al i zati on procedure 
some general purpose procedures. From (Edwards, 1987, pp. 241 - 272). 

2. Subroutines Contained 

a. Initialize 

(1) Type: Procedure 

(2) Purpose: This procedure sets the default 

parameters for the program, attempts to read the telephone number file 
and creates a file if none exists, reads the user developed 
configuration file to override some defaults, displays the terminal 
screen and initializes the Wndow Unit. 

(3) Description of Parameters: 

I nput : 

Output : 

(4) Subroutines Called: 

System. UpCa.se 
System. Length 

(5) Process Description 

This procedure first attempts to open a 
configuration file under the name found in the constant structure 
Defaults. If this file exists, the current cor.f i gurati on is read in to 
a similar structure called Current, otherwise all parameters are taken 
from the constant structure. This is used to set the screen colors, 
identify the initial communications port to use, and identify the modem 
port. This file may be updated from the Master screen. From the 

conf i gurati on selected, the envi ronmental parameters are established. 

A similar process attempts to read the list of telephone numbers and 
associated parameters, however the size of this array is not known in 
advance. A memory block is drawn from the heap for each telephone 
record read to make the list. If the file does not exist, a dummy 
record is established. This file may also be updated from the screen. ' 
Finally, the designated communications port is initialized. This is 
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essential if the Slave computer is to recognize external commands 
without operator intervention, 

b. Save_File 

(1) Type: Procedure 

(2) Purpose: To save user modified configuration or 

telephone dialing list parameters in a local file for later use on 
program initialization. 

(3) Description of Parameters: D is a boolean switch 

that selects the file to be saved. 

(4) Subroutines Called: 

Wndow. Open_Window 
CRT. Cl rScr 
Support . Yes 
Support . NoFi 1 e 
Support . OK 

Wndow. Close_Window 

(5) Process Description 

This procedure saves the default environmental 
parameters as modified by the user in the file DISTRIB.CFS; or the 
current list of telephone numbers and communications port parameters in 
the file DISTRIB. PHN. Both files are loaded on program initialization 
(if available) and override the default parameters found in the 
constant data, structures in the unit Support. 



c. OK 

(1) Type: Procedure 

(2) Purpose: To obtain an acknowledgement from the 

user . 

(3) Description of Parameters: 

Input: S, the string to title the prompt window. 

Output: The user has responded if the call 

returns. 

(4) Subroutines Called: 

Wndow. Open_Wi ndow 
Wndow. Process_Wi ndow 
Wndow. Cl ose_Window 

(5) Process Description 

This function opens a window with a "OK" display 
and the query in the window title field. The operator then depresses 
the ENTER key to acknowledge, which is detected by Process_Wi ndow. The 
widow is closed and the procedure call returns. 



d. 



response. 



sel ected , 



Yes 








(1) 


Type: Function 






(2) 


Purpose: To prompt the user 


for 


a yes or no 


(3) 


Description of Parameters: 
Input: S, the string to title 


the 


prompt window. 




Output: The function returns 


true if Yes was 
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( 4 ) 



Subroutines Called: 

Wndow. Open_Wi ndow 
Wndow. Process_Wi ndow 
Wndow. Close_Window 

(5) Process Description 

This function opens a window with menu bar, 
displaying the query in the window title field and the selections "Yes" 
or "NO" in the window. The operator selects with the menu bar, and 
Process_Window returns a value of two if the selection was "Yes." The 
widow is closed and the function returns true if "Yes" was selected. 

e. NoFile 

(1) Type: Procedure 

(2) Purpose: To obtain an acknowledgement from the 

user after failing to find a file. 

(3) Description of Parameters: 

Input: S, the string to title the prompt window. 

Output: The user has responded if the call 

returns. 

(4) Subroutines Called: 

CRT. Cl rScr 

Support . OK 

Wndow. Open_Wi ndow 

Wndow. Process_Wi ndow 

Wndow. Cl ose_Wi ndow 

(5) Process Description 

This function opens a window to inform the 
operator that the desired file could not be found, then opens another 
window with a "OK" display. The operator then depresses the ENTER key 
to acknowledge, which is detected by the OK procedure. The widow is 
closed and the procedure call returns. 

f. Bui ld_Status_Line 

(1) Type: Procedure 

(2) Purpose: To construct a status line at the bottom 

of the video display. 

(3) Description of Parameters: 

Input: Nothing. 

Output: A status line containing information on 

the current communi cations port is displayed at the bottom of the 
screen . 

(4) Subroutines Called: 

System. Insert 

Wndow. Wri te_Statu.s_Li ne 

(5) Process Description 

The procedure starts with a blank status line and 
inserts substrings depending on the state of variables declared in this 
unit to construct the status line. Wri te_Status_Li ne displays the line 
in the appropriate position. 
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g. Check_keyboard 

(1) Type: Function 

(2) Purpose: To return a keyboard character, 

including special characters. 

(3) Description of Parameters: 

Input: The key is taken -from the Readkey 

■function. Output: The -function returns the character 

read, or the keyboard scan code in the high byte i-f a special character 
is read (Readkey returned a zero). If no key is available, the 
function returns zero. 

(4) Subroutines Called: 

System. KeyPressed 

System. Readkey 

(5) Process Description 

The function checks the Keypressed function and if 
true, calls Readkey to get the character. If Readkey returns zero, a 
special key has been pressed, and the scan code is read from Readkey. 
The character is returned, or the scan code in the high byte of the 
integer if appplicable. 

h. Check_Auxport 

(1) Type: Function 

(2) Purpose: This function checks for a. character at 

the currently selected communications port and returns a. result. 

(3) Description of Parameters: 

Input: Nothing. 

Output: NUL if no character is ready, or the 

character if one was read. 

(4) Subroutines Called: 

DataCom. RS232_Avai 1 

DataCom. RS232_In 

(5) Process Description 

RES232_Avail returns true if a character is 
available in the receive buffer of the currently selected 
communications port. If true, the character is read through R'S232_In, 
and passed to the LST device and Ascii_file if public variables are 
set. The character is returned, or NUL if no character was available. 

i . Fi nd_En vi ronment 

(1) Type: Function 

(2) Purpose: To return a. specified string from the 

operating system environment. This function typically is called to 
find the COMSPEC=<path specification)- string to locate a copy of the 
MS-DOS command processor. With this path information, a second copy of 
the command processor can be spawned to run programs from this one. 

(3) Description of Parameters: 

Input: What is the parameter to be searched for. 

The environment contains strings of the form What=<te::t >. 

Output: If found, the <text> part of the 

environment string; if not, a NUL string. 
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(4) Subroutines Called: 

System. MemW 
System. Ptr 
System. Copy 
System. Length 

(5) Process Description 

To run a batch -File, a second copy of the MS-DOS 

command processor is spawned as a child process, with the batch -file as 

a command tail. The secondary processor executes the batch -file and 
terminates. A copy of the command processor must first be located 
without previous knowledge. MS-DOS normally places a string citing the 
path to the COMMAND.COM on system i ni ti al i zati on in an area of memory 
called the environment, along with other information from the 
AUTOEXEC.BAT file such as PATH information. A segment pointer to this 
MS-DOS environment is placed in any program spawned from the original 
command processorin the child Program Segment Prefix, at offset $0Q2C. 
The environment starts on a segment boundary, so the offsed is 
automatically $0. This environment is the same one manipulated by the 
SET command from MS-DOS, and normally contains a string of the form 
C0MSPEC=D: \di rectory\directory\command. com. To search the environment 
for the requested string, a. pointer (Environ) is typed for the maximum 
sire of the environment, 32K bytes and initialized from the segment 
value at offset f-002C. Each string in the environment is terminated by 

a. NUL character (ASCIIZ). The environment area itself is terminated by 

an extra. NUL. The environment area is searched, string by string by 
copying the strings into a local variable string, S. Each of these 

strings is examined for the search string What. If found, the 
remainder of the string is returned, otherwise a NUL string. This 
function is duplicated in Unit Support to prevent circular unit 
dependencies. (Edwards, 1987, p. 250). 

j. Update_Status 

(1) Type: Procedure 

(2) Purpose: To display or refresh the current status 

of the calling program in a monitor window. 

(3) Description of Parameters: 

Input: Typically this procedure writes current 

information contained in a data structure by writing formatted strings 
to an open window, and then displaying the contents of the data as a. 
string, or by mapping an enumerated data type to an array of constant 
strings to display the value. 

Output: A window display of the current status. 

(4) Subroutines Called: 

Wndow. Get_Wi ndow 
CRT.ClrEOL 

CRT. GoToXY 

(5) Process Description 

This procedure is local to Modi f y_Entry. The, 
process depends on the caller to open a properly sized window and to 
set a variable called Status_ID to allow the status window to be 
accessed via Get_Window. Once reopened, the procedure writes the 
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current status in-formation. The procedure then resets the working window 
to that o-f the caller's Monitor_ID. 

k. Modify_Entry 

(1) Type: Procedure 

(2) Purpose: to display the current list o-f telephone 

numbers that may be dialed automatical 1 y , or the current program 
configuration parameters. 

(3) Description of Parameters: 

Input: I, a selector. If I > 0 the phone list is 

to be modified, if I = 0 then the conf i gurati on parameters are 

modified. 

Output: The user is offered the opportunity to 

save the modifications to a file. 

(4) Subroutines Called: 

Update_Status (local) 

CRT. Cl r Sc r 

CRT. GoToXV 
System. UpCase 
System. Length 
Wndow. Open_Window 
Wndow. F‘rocess_Wi ndow 
Wndow. Cl ose_Wi ndow 

(5) Process Description 

Depending on I, the procedure opens a window of 
the correct size, and then displays the current parameters by mapping 
their values through arrays of constant strings to display readable 
values. The procedure then enters a loop for operator entry of 
parameters to be modified. The user then positions a menu bar over the 
appropriate selection and presses ENTER. Depending on the selection, 
the procedure prompts the operator for an input string, or displays 
another parameterized window and calls F’rocess_Window to obtain the 
current selection. When ESC is pressed, the loop ends and the recorded 
modifications may be safec to a conf i guration or phone list file by 
Save_File. All windows are closed and the procedure returns. 
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APPENDIX N 



MAINTENANCE MANUAL FOR UNIT WNDOW 



A. UNIT WNDOW 

1. Con-figuration Information 

a. Language - Turbo Pascal Version 4.0 

b. Compiler Version - 4.0 

c. Target Hardware - IBM PC/AT or close compatible 

d. Operating System - Microsoft MS-DOS (Version 3.x) 

e. Program Description 

This unit provides all window creation, memory 
allocation, display, menu bar processing, closure and memory 

deallocation functions for the program Distrib. The unit was changed 
from an include file to a unit, but not otherwise changed from that 
originally developed by the author in (Edwards, 1987, pp. 50-98). The 
purpose descriptions are from the author. 

2. Subroutines Contained 

a. Set Col or 

(1) Type: Procedure 

(2) Purpose: Set the EGA foreground color for text 

display. 

(3) Description of Parameters: 

Input: Color, the code to set the color to. 

Output: All future text will be displayed in the 

color selected. 

(4) Subroutines Called: 

CRT. Text Col or 

(5) Process Description 

The color selected is stored in the variable 
Foreground, and a call is made to TextColor to set the screen 
foreground color in accordance with the EGA monitor standards. 

b. SetBackGround 

(1) Type: Procedure 

(2) Purpose: Set the EGA background color for text 

display. 

(3) Description of Parameters: 

Input: Color, the code to set the color to. 

Output: All future text will be displayed on a 

background of the color selected. 

(4) Subroutines Called: 

CRT. TextBackGround 
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(5) Process Description 

The color selected is stored in the variable 
Background, and a call is made to TextBackGround to set the screen 
background color in accordance with the EGA monitor standards. 

c. Get_Dummy_Screen 

(1) Type: Procedure 

(2) Purpose: Force the Screen variable to point to a 

dummy area on the heap. 

(3) Description of Parameters: 

Input: Screen, Screen_New (Public variables in 

this unit. 

Output: Screen and Screen_New 

(4) Subroutines Called: None. 

(5) Process Description 

Screen is initialized to point to the the start of 
the display area for the color or monochrome monitor in 
Ini t_Wi noow_Inf o. This procedure saves this pointer in Screen_New and 
then fills Screen with the same information. 

d. Get_Real_Screen 

(1) Type: Procedure 

(2) Purpose: To undo the work of Get_Dummy_Screen 

(3) Description of Parameters: 

Input: Screen, Screen_New (Public variables in 

this unit. 

Output: Screen and Screen_New 

(4) Subroutines Called: None. 

(5) Process Description 

Screen is initialized to point to the the start of 
the display area for the color or monochrome monitor in 
Ini t_Window_Inf o. 6et_Dummy_Screen redirects the pointer Screen to a 
dummy area on the heap. This procedure restores Screen to its original 
setting . 



e. Bui ld_Borders 

(1) Type: Procedure 

(2) Purpose: Build a border of single or double lines 

around a window. 

(3) Description of Parameters: 

Input: Lines, specifying a single or double 

border. Acti ve_Window, a public pointer in this unit to a window 
control block containing information about the size and current 
position of the window to be bordered. 

Output: The output is a border written to the 

display to outline the window. 

(4) Subroutines Called: 

General .Fill Word 
System. Length 
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(5) Process Description 

This procedure determines the window limits 
contained in the window control block pointed to by Active_Window, and 
places standard symbols in screen memory to outline the window. 

f. Open_Window 

(1) Type: Function 

(2) Purpose: Open a window on the screen and draw a 

border around it. (3) 

Description of Parameters: 

Input: XI, Yl, X2, Y2 are the window coordinates; 

Flag is a. bit mask of allowed functions for this window (borders, GOTO 
allowed within the window, relocatable and can be closed from the main 
program) ; Name is the window title to be displayed. 

Output: 0 - window opened successfully; 1 - 

Invalid window coordinates; 2 - not enough memory (failure). 

(4) Subroutines Called: 

System. GetMem 
System. MemAvai 1 
System. Move 
Wndow. Bui 1 d_Borders 

(5) Process Description 

After checking the input parameters for valid 
coordinates and sufficient memory, the memory required to save the 
portion of the screen displayed by the window is allocated from the 
heap and the window is drawn with the appropriate colors and borders. 
Acti ve_Window is advanced to this new window after adding it to the 
linked list of open windows. 

g. Close_Window 

(1) Type: Function 

(2) Purpose: To close the window pointed to by 

Acti ve_Window. 

(3) Description of Parameters: 

Input: Acti ve_Window is a public pointer managed 

by this unit, and refers to the currently open window. 

Output: The window is closed, and Acti ve_Wi ndow 

is redirected to the previous window in the linked list of open 
windows. The function returns FALSE if successful, TRUE if an attempt 
was made to close a window with Acti ve_Wi ndow''=NIL (no more windows 
open) . 

(4) Subroutines Called: 

System. FreeMem 
System. hove 
Wndow. Bui 1 d_Borders 
Wndow. SetBac kground 
Wndow. SetColor 

(5) Process Description 

After checking the input parameters for valid 
coordinates and sufficient memory, the memory required to save the 
portion of the screen displayed by the window is allocated from the 
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heap and the window is drawn with the appropriate colors and borders. 
Acti ve_Wi ndow is advanced to this new window a-fter adding it to the 
linked list of open windows. 

h. Save_Window 

(1) Type: Function 

(2) Purpose: This function saves the image of the 

current window, closes it, and returns a pointer to the saved window in 
memory. 

(3) Description of Parameters: 

Input: Acti ve_Wi ndow is a public pointer managed 

by this unit, and refers to the currently open window. 

Output: A pointer to the saved window. 

(4) Subroutines Called: 

Wndow. Open_Wi ndow 
Wndow. Cl ose_Wi ndow 

(5) Process Description 

W, a local variable is pointed to the same 
window_block as the current Acti ve_Wi ndow. The procedure then opens a 
window with parameters identical to the current window by using the 
local pointer W to dereference the current window parameters. The act 
of opening a window of the same size and parameters has the effect of 
saving the original window. Acti ve_Wi ndow now points to the new 
window. If the call to Open_Window fails, a NIL pointer is returned 
from Save_Window and the function exits. Otherwise, parameters from 
the saved window are transferred to the Acti ve_Wi ndow block, W is 

redirected to the newly updated current window, Acti ve_Wi ndow is 
retracted to the saved window and the window that overlaid it is 

closed. The function returns the pointer to the saved block. 

i. Restore_Window 

(1) Type: Procedure 

(2) Purpose: 

(3) Description of Parameters: 

Input: A pointer to a saved window. 

Output: TRUE if the function was unable to 

restore the window. 

(4) Subroutines Called: 

Wndow. Open_Wi ndow 
Wndow. SetBackGround 
Wndow. SetCol or 

(5) Process Description 

The function first uses the window pointer to set 
the video display colors. Then, an attempt is made to open a window of 
the same size as the saved window. If this fails, the function returns 
true. Otherwise, the Acti ve_Wi ndow parameters are set to the saved 
window, the saved window is added to the window control block chain, 
and Acti ve_Wi ndow is reset to point to the restored window. 

j. Get_Window 

(1) Type: Function 
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(2) Purpose: To bring a window to the top of the 

screen . 

(3) Description of Parameters: 

Input: Which, the ID of the window to be 

surf aced. 

Output: False if the operation succeeds, True if 

the ID did not exist. 

(4) Subroutines Called: 

Wndow. Get_Dummy_Screen 
Wndow_Restore_Wi ndow 

(5) Process Description 

Get_Window follows the backlinks from 
Acti ve_Wi ndow back until the ID of Which is found or the links end at a 
NIL. If found, Move_Window is used to copy the desired window into a 
heap area obtained by Get_Dummy_Screen . The window is then placed on 
the screen by Restore_Window. 



k . Move_Wi ndow 

(1) Type: Function 

(2) Purpose: To move a current window by a relative X 

and Y. 



wi ndow. 



(3) Description of Parameters: 

Input: X, Y the direction and amount to move the 



Output: False if the operation succeeds, True if 

the coordinates are invalid. 

(4) Subroutines Called: 

CRT. Window 

Wndow. Exchange 

(5) Process Description 

f1ove_Window checks the values of X and Y and then 
copies the window incrementally in the desired di recti on (s) . The built 
in procedure Window is then used to enable the new window location for 
display. 



1. Write_Status 

(15 Type: Procedure 

(2) Purpose: To display a string on the 25th video 

display line with a video attribute. 

(3) Description of Parameters: 

Input: S, the status string; Attrib, the display 

attribute. 

Output: The string is written to the display. 

(4) Subroutines Called: 

System. Length 

(5) Process Description 

The procedure first concatenates the attribute 
byte with the display character and then writes the combination to the 
screen as a word, using the Screen pointer. 
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m. Process_Window_Menu 

(1) Type: Procedure 

(2) Purpose: to display and process a menu in the 

current window. 

(3) Description of Parameters: 

Input: Menu is a constant that must consist of an 

integer, followed by an array of string constants of length Menu. 

Output: The function returns a byte reflecting 

the index of the i 'th string in the constant array. A zero is returned 
if ESC is pressed. 

(4) Subroutines Called: 

Set_Hi ghl i ghts (local) 

GoDown (local) 

GoHome (local) 

GoEnd (local ) 

GoUp (local) 

CRT. GoToXY 
CRT. TextBackground 
CRT. Text Co lor 
Support . Max 
Support . Mi n 
System. Length 
Wndcw. Bui 1 d_Borders 

(5) Process Description 

This function relies on a side effect of the data 
structure, and assumes that the array of strings representing the 
selections to be displayed in the window immediately follow Menu. By 
obtaining a memory address for Menu, the function opens a window of the 
proper size and then uses this implementation specific information to 
display the strings. The function then offers the operator the menu 
bar movement options on the status line to make a selection. 
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APPENDIX 0 



MAINTENANCE MANUAL FOR UNIT XMODM 



A. UNIT XMODM 

1. Configuration Information 

a. Language - Turbo Pascal Version 4.0 

b. Compiler Version - 4.0 

c. Target Hardware - IBM PC/AT or close compatible 

d. Operating System - Microsoft MS-DOS (Version 3.x) 

e. Program Description 

This unit handles all requests for Xmodem protocol 
packet and file transmission and reception. 

2. Subroutines Contained 

a. String_to_Buf 

(1) Type: Procedure 

(2) Purpose: Convert a string of length 128 to an 

Xmodem buffer of the same length. 

(3) Description of Parameters: 

Input: S, a 128 character string. 

Output: buf , an Xmodem buffer. Short strings are 

padded with NUL characters. 

(4) Subroutines Called: 

System. Length 

(5) Process Description 

The string is treated as an array of characters, 
and each is read into the same position in the buffer. 

b. Buf _to_String 

(1) Type: Function 

(2) Purpose; Convert a 128 character buffer into a 
string of the same length. Nonprinting characters are replaced with 
spaces. 

(3) Description of Parameters: 

Input: buf, the 128 character buffer of 

characters. 

Output: s, a 128 character string. 

(4) Subroutines Called: None. 

(5) Process Description 

The string is treated as an array of characters, 
and each character in the buffer, another array of compatible type is 
read into the string. Spaces are substituted for nonprinting 

characters. 
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c . ReadAux 

(1) Type: Function 

(2) Purpose: Returns a character from the currently 

selected communications port, and also writes the character to the 
monitor file and monitor window if selected. Provides a timeout 
function and a keypressed abort. 

(3) Description of Parameters: 

Input: Seconds, the number of seconds to wait for 

a character before returning with a timeout indication. 

Output: A word with the received character in the 

low order byte, value 256 (timeout) otherwise. 

(4) Subroutines Called: 

CRT. Del ay 

CRT. Keypressed 
CRT. TextColor 
CRT. BackGround 
DataCom. RS232_Avai 1 
System. DEC 

(5) Process Description 

A factor is multiplied by the number of seconds to 
wait, and then used in a fast loop to test for a received character or 
operator keypress. Either event breaks the loop. If a character is 

available, the function returns the character. If Monitor_ID is 
greater than zero, a monitor window is open and the character is 

written to the cursor position there and to a monitor file. Otherwise, 
a timeout indicator is returned. 

d. WriteAux 

(1) Type: Procedure 

(2) Purpose: Sends a character to the currently 

selected communications port, and also writes the character to the 
monitor file and monitor window if selected. 

(3) Description of Parameters: 

Input: Ch , the character to be sent. 

Output: The character is sent and displayed if 

the iionitor_ID switch is greater than 0. 

(4) Subroutines Called: 

CRT. TextColor 

CRT. BackGround 
DataCom. RS232_0ut 

(5) Process Description 

The character is sent out the communications port 
by RS232_0ut. If Monitor_ID is greater than zero, a monitor window is 
open and the character is written to the cursor position there and to a 
monitor file. 

e. Send_String 

(1) Type: Procedure 

(2) Purpose: To send a string out the currently 

selected communications port. 
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(3) 



Description of Parameters: 

Input: S, a string. 

Output: The string is sent to the port. 

(4) Subroutines Called: 

DataCom. RS232_0ut 
System. Length 

(5) Process Description 

The string is passed, character by character, to 
the communications port. 



f. Receive_Record 

(1) Type: Function 

(2) Purpose: Receive an Xmodem packet from the 

currently selected communications port. A building block for file and 
command transfers. 



the packet; 
of seconds 
the ordinal 

data packet 
number of 



(3) Description of Parameters: 

Input: Buf , the data portion of 

Blocksize, the size of the data buffer; seconds, the number 
to wait before timing out on reception; and expected_block , 
number of the next block expected from the sender. 

Output: Buf is filled with the 

contents if successfully received; errors indicates the 
errors encountered in receiving the packet. 

(4) Subroutines Called: 

X mod m. Read Aux 
Xmodm. Wri teAux 

(5) Process Description 

Recei ve_Record first listens for the SOH character 
the start of an Xmodm packet from the port via ReadAux , 
nu.mbert of seconds to wait on the call. The function exits 
with an appropriate status code if a CAN, EOT or unexpected 
character is received. IF SOH is received, the function then assembles 
the Xmodem header, calculates a running checksum on the incoming data, 
and detects the checksum character. It then checks the packet for 
match between the block number and its inverse (packet locations two 
and three, respectively), an incorrect block number compared to the 
input expected_block , and a different checksum from that received and 
provides the appropriate status on return for each. If the packet was 
received correctly, an ACK is sent to the transmitter. If not, a NAK 
is sent. 



signall ing 
passing the 
immediately 



g. Get_Buffer 

(1) Type: Procedure 

(2) Purpose: Reads a buffer of size blocksize from a 

previously opened file. Pads the buffer with NUL characters if smaller 
than requested. 

(3) Description of Parameters: 

Input: Buf, the buffer to fill; blocksize, the 

size of the buffer in bytes; XferFile is a private file variable in 
this unit. 
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Output: Bu-f contains the next -file buf-fer. 

(4) Subroutines Called: 

System. B1 cckRead 

(5) Process Description 

The low level tile read procedure BlockRead is 
used to read an untyped butter. The procedure reports the number ot 
bytes read. It less than the butter size, the remaining bytes are 
tilled with NULL characters. 



h. Send_Record 

(1) Type: Function 

(2) Purpose: Send an Xmodem packet out the currently 

selected communications port. A building block tor tile and command 
transfers. 

<3) Description of Parameters: 

Input: But, the data portion of the packet; 

Blocksize, the size of the data buffer; seconds, the number of seconds 
to wait before timing out on acknowledgement; Block, the ordinal number 
of this packet; and errors, a count of the number of errors on the 
attempt to return to the calling program. 

Output: But is unchanged and is a VAR parameter 

for efficiency; errors indicates the number of tries to send the 
packet . 

(4) Subroutines Called: 

DataCom. Pur gel ine 
Xmodm. ReadAux 
Xmodm. Wri teAux 

(5) Process Description 

Send_Record first calculates a checksum value for 
the data, in the buffer and then sends the SON character signalling the 
start of an Xmodm packet to the port via WriteAux, followed by the 
block number and its inverse, the data and the calculated checksum 
value. PurgeLine is called to clear the receive buffer to prevent an 
erroneous interpretation of an earlier character received. ReadAux is 
then called to listen for the receiver's acknowledgement. Status is 
set accordingly. Finally, the keypressed function is checked to an 
operator interrupt and status is updated. Status is returned as the 
function result. 



i. Sync_Receive 

(1) Type: Function 

(2) Purpose: Used to synchronize to receive Xmodem 



(3) Description of Parameters: 

Input: Seconds, the number of seconds to wait 

between sending sync characters (NAK for Xmodem); and sync_character , 
the sync character to send. 

Output: A status code indicating synchronization, 

timeout or operator keypress. 

(4) Subroutines Called: 



CRT. KeyPressed 
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DataCom. F’urgeLi ne 
DataCom. RS232_Avai 1 
Xmodm. Wri teAux 

(5) Process Description 

Sync_Recieve calculates the number of ten second 
intervals in seconds is calculated. The receive line is cleared and 

the sync character is sent. The -function then loops waiting -for a 
character to be received or the operator to press a key -for the time 
indicated by seconds, sending a new sync character every -five seconds. 
The -function does not check the received character, only whether or not 
one was received in the allotted time. A status code is returned as 
the function result (packet acknowledged, negative acknowledge, 
receiver requests to cancel the transaction, timeout or operator 
keypress) . 

j. Sync_Send 

(1) Type: Function 

(2; Purpose: Used to synchronize to send Xmodem 

packets. 

(3) Description of Parameters: 

Input: Seconds, the number of seconds to wait 

between sending sync characters (NAK for Xmodem). 

Output: A status code indicating synchroni zati on , 

timeout or operator keypress. 

(4) Subroutines Called: 

CRT. KeyPressed 
DataCom. PurgeLi ne 
Xmodm. ReadAux 

(5) Process Description 

Sync_Send clears the receive line with PurgeLine 
and then calls ReadAux to detect a received character. A status code 
is returned as the function result (sync character received, checksum 
sync received, receiver timed out or a keypress was detected). 

k. Send_EOT 

(1) Type: Procedure 

(2) Purpose: To signal the end of a data transfer for 

the Xmodem protocol . 

(3) Description of Parameters: 

Input: Status, to be changed to reflect the 

outcome of the call; and Suppress_EOT , a flag set to suppress the 
normal EOT on an Xmodem data transfer. Used to concatenate file 
transfers. 

Output: Status, reflecting transmission 

completed, or a timeout error (or too many errors) . 

(4) Subroutines Called: 

Xmodm. ReadAux 
Xmodm. Wri teAux 

J 

(5) Process Description 

Suppress_EOT is first checked to see if the EOT 
will be sent. If TRUE, the EOT is not sent and the procedure returns a 
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completion status. This allows successive Xmodem transfers without 
encountering the normal flow control reversal . Otherwise., EOT 
characters are sent every ten seconds until acknowledged or the 
accumulated errors exceed RetryMax, a constant private to the Xmodm 
Unit. A timeout status is returned if errors were exceeded, a 
transmission complete status if EOT was properly acknowledged. 



1 . Send_CAN 

(1) Type: Procedure 

(2) Purpose: Used to inform the other side of the 

communications link that the Xmodem operation is to be aborted. 

(3) Description of Parameters: 

Input: None. 

Output: Two CAN characters are sent out the 

communications port. 

(4) Subroutines Called: 

Xmodm. Wr i teAux 

(5) Process Description 

Two CAN characters are sent out the communications 

port . 



m. Update_Status 

(1) Type: Procedure 

(2) Purpose: To display or refresh the current status 

of the calling program in a monitor window. 

(3) Description of Parameters: 

Input: Typically this procedure writes current 

information on the status of a data, transfer, the number of bytes and 
blocks sent or received, and the count of the number of errors 
accumulated on the transaction in a formatted display. 

Output: A window display of the current status. 

(4) Subroutines Called: 

Wndow. Get_Wi ndow 

CRT. GoToXY 

(5) Process Description 

This process is used several places in this unit, 
and operates identically in each. The process depends on the caller to 
open a properly sized window and to set a variable called Status_ID to 
allow the status window to be accessed via Get_Window. Once reopened, 
the procedure writes the current status information using variables 
local to the caller. The procedure then resets the working window to 
that of the caller's Monitor ID. 



n. Xmodem_Xfer 

(1) Type: Function 

(2) Purpose: Perform an Xmodem file transfer. 

(3) Description of Parameters: 

Input: Send, TRUE to send a file, FALSE to 
receive; and Blocksize, the size of the data buffer to use. 

Output: A status code indicating success or what 

problem was encountered. 



131 



(4) Subroutines Called: 

Update. Status (local to this function) 

CRT. ClrScr 
CRT. Del ay 
CRT. GoToXY 
CRT. KeyPressed 
CRT. ReadKey 
DataCom. RS_Eight_Bi ts 
General . Beep 
System. B1 ockWri te 
System. Assign 
System. Reset 
System. Rewrite 
Xmodm. Sync_Send 
Xmodm. Get_Buf f er 
Xmodm. Send_Record 
Xmodm. Sync_Recei ve 
Xmodm. Wri teAux 
Wndow. Close_Window 
Wndow. Open_Window 

(5) Process Description 

The public variable Moni tor_Transf ers is checked 
to see if a monitor window is to be opened to display the characters 
transfered. If TRUE, the window and a monitor file are opened. The 
status window is then opened and unchanging field names written. 
RS_Eight_Bits is called to insure the communications port passes eight 
bit data, regardless of its settings. After initialising the variables 
used to report status, the function branches depending on whether a 
file is to be sent or received. If Send is TRUE, Sync_Send is called 

to detect sync characters from the receiver. If Sync_Send times out, 

the transfer is aborted and the timeout is reported to the caller. IF 
sync is detected, file buffers are obtained from Get_Buffer and sent 

via Send_Record until EOF is detected or too many errors are 

encountered. If successful, EOT is sent to the receiver to signal the 
end of transmission. The KeyPressed function is monitored at several 
points, and will cause an immediate abort with status returned to the 
caller. If Send is FALSE, Sync_Receive is called to send sync 
characters. If a timeout is not encountered, Recei ve_Record is called 
repeatedly to obtain received buffers and monitor status. The transfer 
terminates on receipt of EOT (competion) , too many errors detected or a 
keypress indication, with appropriate status returned to the caller. 
Update_Status is called several times throughout each branch to 
indicate progress or report errors. The transfer file is then closed, 
as are the monitor and status windows. RS_Initial ice is called to 
reset the communications port to its previous word length. 

o. Command_Xfer 

(1) Type: Function 

(2) Purpose: Transfer a single command packet. 



(3) Description of Parameters: 

Input: Send, TRUE to send a packet, FALSE to 

receive a packet; Buf , the data buffer send or received; Blocksize, the 
size of the data buffer. 

Output: A status code indicating success or what 

problem was encountered. 

(4) Subroutines Called: 

Update. Status (local to this function) 

CRT. Cl rScr 
CRT. Del ay 
CRT. GoToXY 
CRT. KeyPressed 
CRT. ReadKey 
General . Beep 
Xmodm. Sync_Send 
Xmodm. Get_Buf f er 
Xmodm. Send_Record 
Xmodm. Sync_Recei ve 
Xmodm. Wri teAu>: 

Wndow. Cl ose_Window 
Wndow. Open_Wi ndow 

(5) Process Description 

This function operates similarly to Xmodem_Xfer, 
except that a single Xmodem packet is transferred. The public variable 
Moni tor_Transf ers is checked to see if a monitor window is to be opened 
to display the characters transfered. If TRUE, the window and the 
monitor file are opened. The status window is then opened and 
unchanging field names written. RS_Eight_Bits is called to insure the 
communications port passes eight bit data, regardless of its settings. 
After initializing the variables used to report status, the function 
branches depending on whether a file is to be sent or received. If 
Send is TRUE, Sync_Send is called to detect sync characters from the 
receiver. If Sync_Send times out, the transfer is aborted and the 
timeout is reported to the caller. IF sync is detected buf is sent via 
Se.nd_Record. If successful , EOT is sent to the receiver to signal the 
end of transmission. The KeyPressed function is monitored at several 
points, and will cause an immediate abort with status returned to the 
caller. If Send is FALSE, Sync_Receive is called to send sync 
characters. If a timeout is not encountered, Recei ve_Record is called 
to obtain received buffer and monitor status. The transfer terminates 
on receipt of EOT (competion) , too many errors detected or a keypress 
indication, with appropriate status returned to the caller. 
Update_Status is called several times throughout each branch to 
indicate progress or report errors. The monitor file is then closed, 
as are the monitor and status windows. RS_Initial ize is called to 
reset the communications port to its previous word length. 

p. Transf er_Fi le 

(1) Type: Procedure 

(2) Purpose: To obtain the name of the file to be 

transferred from the local operator. 
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desired , 



(3) Description of Parameters: 

Input: Send, TRUE if a file send is 

FALSE to receive a file. 

Output: Monitor display. 

(4) Subroutines Called: 

Wndow. Open_Wi ndow 
Wndow. Close_Window 
Support . NoFi 1 e 
System. Assign 
System. Length 
System. Reset 
System. Rewrite 
System. Upcase 

(5) Process Description 
Transf er_Fi 1 e first opens a window to ask the 

operator what filename is to be transferred. The transfer is aborted 
and NoFile is called if the file is not found or cannot be opened. 
Depending on Send, the file is opened for reading or writing and then 
X.modem_Xfer is called to accomplish the transfer. 

q . Respond_by_F i 1 e 

(1) Type: Procedure 

(2) Purpose: To allow the remote Slave to send the 

results of a program or other message- contained in a file to the 
Master. 

(3) Description of Parameters: 

Input: Response, the file to be sent. 

Output: None from this procedure. 

(4) Subroutines Called: 

Wndow. Open_Wi ndow 
Wndow. Cl ose_Wi ndow 
System. Assign 
System. Length 
System. Reset 
System. Rewr i te 
System. Upcase 

(5) Process Description 

Transf er_Fi 1 e first opens a window to ask the 
operator what filename is to be transferred. The transfer is aborted 
if the file is not found or cannot be opened. Depending on Send, the 
file is opened for reading or writing and then Xmodem_Xfer is called to 
accomplish the transfer. 

r. Get_Response 

(1) Type: Function 

(2) Purpose: To allow the Master to receive file 

responses from a. program completed by the Slave. 

(3) Description of Parameters: 

Input: BlockSize, the size of the Xmodem buffers." 

Output: Status code of the cal 1 . 
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(4) Subroutines Called: 

CRT. KeyF'ressed 
CRT. ReadKey 
DataCom. RS_Ei ght_Bi ts 
DataCom. RS_Restore 
Xmodm. Sync_Recei ve 
Xmodm. Recei ve_Record 
Xmodm. WriteAux 
System. Assign 
System. Cl ose 
System. Rewrite 
Wndow. TextCol or 
Wndow. TextBackGround 

(5) Process Description 

For this -function, the monitor window is set to 
the current window, and the monitor file is directed to NUL, the bit 
bucket. This satisfies ReadAux and WriteAux so that the display will 
operate properly without creating an unnecessary file. RS_Eight_Bi ts 
is called to insure the communications port passes eight bit data, 
regardless of its settings. After initializing the variables used to 
report status, Sync_Receive is called to send sync characters. If a 
timeout is not encountered, Recei ve_Record is called to obtain received 
buffer and monitor status. The transfer terminates on receipt of EOT 
(competion) , too many errors detected or a keypress indication, with 
appropriate status returned to the caller. Update_Status is called 
several times throughout each branch to indicate progress or report 
errors. RS_Initialize is called to reset the communications port to 
its previous word length, and the dummy monitor file is closed. 

s. Xmodm Unit Initialization 

(1) Type: Unit Initialization Procedure 

(2) Purpose: To initialize the unit on loading. 

(3) Description of Parameters: 

Input: Suppress_EGT , Moni tor_Transf ers. 

Output: Suppress_EOT , Moni tor_Transf ers. 

(4) Subroutines Called: None. 

(5) Process Description 

Suppress_EOT and Moni tor_Transf e^s are set to 

their default values. 
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DATACOM. PAS 

This is the unit that accomplishes all interface to the 
communications ports for character, string and buffer 
transfer. It also initializes the communications ports 
and provides interrupt interrupt service routines for 
character receive. 



References: 
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width to eight bits for Xmodem protocol operation. 
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UNIT DATACOM; 



INTERFACE 



USES General, CRT, Doe; 



CONST 

CQM1 = 1; 

COM2 = 2; 

COM3 = 3; Cnot implemented, but MS-DOS knows about them} 
COM4 = 4; Cnot implemented, but MS-DOS knows about them} 



(************************ Start Edwards Excerpt ##########*##*******) 
TYPE 

RS_Baud = ( B 1 1 0 , B 1 50 , B300 , B600 , B 1 200 , B2400 , B4800 , B9600 , B 1 9200 , 

B 38400 ) ; 

RS_F'arity = ( None, Odd , Never mind , Even) ; 

RS_Config = Record 
Stop , 

Length : byte; 

Alias : string CIO]; 

Speed : RS_Baud; 

Parity : RS_F'arity; 

IRQNo : byte; 

Installed ; boolean; 
end; C RECORD } 



Port Range 



C0M1 . .COM2: 



VAR 

Current_Com : Byte; {public, speci-fies current port -for 

command or -file transfer} 

ComPort : ARRAY [ F’ortRange ] OF RS_Config; 

Procedure RS_Break; 

{ This procedure instructs the currently selected data communications 
port to send a break signal} 

Function RS232_Avai 1 : Bool ean ; 

[This function returns TRUE if there are characters to be read from 
the RS232 port. It is analogous to the Turbo function KEYPRESSED for 
the keyboard. 



(* Reprinted with extensive modifications from Advanced Techniques in 
Turbo Pascal by Charles Edwards, by permission of Sybex , Inc. 
Copyright 1987 Sybex, Inc. All rights reserved. 

**+*****■**•*•**•) (■**■*•**** Continue Edwards Excerpt ********************) 



1 

1 



zn 



(******************** Continue Edwards Excerpt ********************) 
Function RS232_In: Char ; 

•CThe AUX device is set to point to this -Function for input. It returns 

the next character received from the RS232 port. 

\ 

J 



Procedure RS232_0ut ( F'aram : Char ) ; 

{ Sends the character to the RS232 port. > 

Procedure RS_Ini ti al i ze (Com: Byte; Speed: RS_Baud; Par i ty : RS_Pari ty ; 

Stop , Length: Byte) ; 

•C Initialize communications port. Vector the appropriate interrupt to 
point to our interrupt service routine. Initialize hardware 
handshaking lines. Store current settings in a data structure for 
restoration. 

Input: COM - The RS232 port to be handled 
Speed - The baud rate of the line 

P - The parity of the line 

Stop - The number of stop bits 

Length - The number of data bits 

n — 

Procedure RS_Cleanup; 

[This procedure should be called on exit to disable interrupts on the 
RS232 port and reset everything to its default state. 

-> 

J 

(* Reprinted with extensive modifications from Advanced Techniques in 
Turbo Pascal by Charles Edwards, by permission of Sybex , Inc. 
Copyright 1987 Sybex, Inc. All rights reserved. 
************************ End Edwards Excerpt ***********************) 

Procedure Purged ne; 

•t This function clears the receive buffer and UART receive buffer for 
the currently selected port} 

Function Connected : boolean; 

{ Returns TRUE if the Data Set Ready line is true, signalling hardware 
handshaking } 

Function RS232_peek : Char; 

{ Added to allow nondestructive read of the currently selected port 
input buffer for xmodm. Sync_recei ve> 
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Procedure Send_String ( S : String ); 

•C Send a string out the currently selected RS232 port > 

Procedure RS_Restore ( COM : byte ) ; 

{ Reinitialize the COM Port > 

Procedure RS_Ei ght_Bi ts; 

■C Adjust the comport -for eight bits regardless of current setting > 
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IMPLEMENTATION 



(************************ Start Greenberg extract *********************) 
CONST 

•C UART declarations } 

{ Interrupt Enable Register } 

•C Or one or more of these bits to enable the respective interrupts > 



IER_RDA = $01; { Receive Data Available Int Bit 1 

IER_THRE = $02; { Transmitter Hold Register Empty Bit — 1- 

IER_RLS = $04; C Receive Line Status Int Bit -1 — 

IER_MS = $08; C Modem Status Int Bit 1 



•C Interrupt Identification Register } 

C Check the lower four bits to see what interrupt called } 



I IR_RLS = $05; 
I IR_RDA = $04; 
I IR_THRE = $02; 
1 1 R_ PEND = $01; 
I IR_MS = $00; 



{ Receiver Line Status Interrupt 
•C Receive Data Available 
•C Transmitter Hold Register is Empty 
•C zero if * any * interrupt pending 
{ Modem Status interrupt 



101 

-100 

-010 

-001 

-000 



•C Line Control Register > 

C Or one or more of these bits to select comm port parameters > 



LCR_CHR5 = $00; C Five bit character — 00 

LCR_CHR6 = $01; C Six bit character — 01 

LCR_CHR7 = $02; { Seven bit character — 10 

LC-R_CHR3 = $03; C Eight bit character — 11 

LCR_ST0P1 = $00; C One stop bit -0 — 

LCR_ST0F’2 = $04; C Two stop bits 1 — 

LCR.NOPARITY = $00; C No parity 0— 

LCR_PARITYEN = $08; { Enable parity (see SPARITY and 

EPARITY 1 — 

LCR_EPARITY = $10; C Even parity bit 1 

LCR_SPARITY = $20; { Stick parity — 1 

LCR_BREAK = $40; C Transmits a BREAK (space) -1 — 

LCR DLAB = $80; C Divisor Latch Access bit 1 



> 

J 

\ 

J 

•\ 

J 



] 



*>. 

J 

\ 

J 



\ 

J 

\ 



\ 

J 

J 



(* Reprinted from "TSRC0MM.ASM A Replacement for Interrupt 14" by Ross 
M. Greenberg, by permission of the author. Copyright 1987, Ross M. ' 
Greenberg. All rights reserved. 

********************** Continue Greenberg Excerpt ********************) 
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(********************* Continue Greenberg extract *********************) 



{ Modem Control Register } 

•C Or one or more of these bits to signal the modem > 



MCR_DTR 


= $01; 


.r 

i. 


set Data Terminal Ready 


i > 


MCR_RTS 


= $02; 


{ 


set Request To Sent 


— 1_ } 


MCRJJUT1 


= $04; 


{ 


Output 1 (resets Hayes modem) 


1 — } 


MCR_DUT2 


= $08; 


{ 


Output 2 (allows comm 

port interrupts) 


!___ y 


MCR_L00P 


o 

II 


r 

L 


Loopback test 


— i > 



{ Line Status Register } 

{ Test one or more of these bits to determine comm port status > 



LSR. 


.DATA 


= $01; 


.r 

L 


data is available 


i } 


LSR_ 


OVERRUN 


= $02; 


r 

L 


overrun error bit 


1- > 


LSR_ 


.PARITY 


= $04; 


r 

\ 


parity error bit 


1 — } 


LSR_ 


’framing 


= $08; 


{ 


framing error bit 


1 } 


LSR_ 


BREAK 


= $10; 


r 

L 


BREAK detected bit 


— i > 


LSR_ 


THRE 


= $20; 


,r 

>. 


Transmit Holding Register Empty 


— i > 


LSR_ 


TSRETY 


= $40; 


r 

L 


Transmit Shift Register Empty 


-l > 



C Modem Status Register } 

{ Test one or more of these bits to determine modem actions > 



MSR. 


_DEL_CTS = 


$01; 


f 

V 


delta Clear To Send 


i } 


MSR. 


_DEL_DSR = 


$02; 


,r 


delta Data Set Ready 


1- } 


MSR. 


_EDGE_RI = 


$04 ; 


.r 

L 


Trailing Edge of Ring Indicator 


1— > 


MSR. 


_DEL_SIGD = 


$08; 


r 

\ 


delta Receive Line Signal Det 


1 } 


MSR. 


_CTS 


$10; 


{ 


Clear To Send 


1 y 


MSR. 


_DSR 


$20; 


r 

V 


Data Set Ready 


— 1- } 


MSR. 


~RI 


$40; 


.f 


Ring Indicator - entire ring 


1 

»—*■ 

1 

1 

1 

1 

1 

1 


MSR. 


_DCD 


$80; 


r 


Data. Carrier Detect - on line 


1 } 



(* Reprinted from "TSRCOMM. ASM A Replacement for Interrupt 14" by Ross 
M. Greenberg, by permission of the author. Copyright 1987, Ross M. 
Greenberg. All rights reserved. 

End Greenberg Excerpt 
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(******************* Start Edwards Excerpt *************************) 



{ IRQ Lines > 

IRQline : ARRAY [ PortRange ] OF byte = ( 4, 3 ); 

TYPE 



INS8250 



record 








THR : 


word; 


{ 


Transmit Holding Register 


\ 

J 


RBR : 


word; 


{ 


Receive Holding Register 


} 


IER : 


word ; 


{ 


Interrupt Enable Register 


\ 

J 


IIR : 


word; 


{ 


Interrupt Ident Register 


} 


LCR : 


word ; 


{ 


Line Control Register 


*> 

J 


MCR : 


word; 


r 

K. 


Modem Contro Register 


} 


LSR : 


word ; 


r 

t. 


Line Status Register 


\ 

J 


NSR : 


word; 


r 

\ 


Modem Status Register 


} 


DLL : 


word ; 


{ 


Divisor Latch LSB 


J 


DLM : 


word; 


r 


Divisor Latch MSB 


J 


END; 











CONST 

RS Buffer Size 



4095; 



{Size o-f Bu-f-fer - 1... Change this i-f you 
want a different buffer size} 



{ 8259 PIC declarations } 

ISR = $20; { Interrupt Service Register } 

I NR = $21; C Interrupt Mask Register } 

IRQ4_Mask = $EF; { Enable for CONI > 

IRQ3_Na.sk = $F7; { Enable for C0N2 } 

{ IBM PC' comm port interrupt vectors } 

C0M1_INTR = TOC ; 

C0M2_INTR = $0B; 

RS_Error : byte = 0; 

Chk_DSR : boolean = FALSE; 

Chk_CTS : boolean = FALSE; 



Regs 



: Array Cl.. 21 of INS8250 = 

( ( THR : $3F8 ; RBR : $3F8 ; I ER : $3F9 ; 
NCR: $3FC; LSR:$3FD; MSR;$3FE; 
(THR: $2F8; RBR:$2F8; IER:$2F9; 
MCR: $2FC; LSR:$2FD; NSR:$2FE; 



IIR; $3F9; 
DLL: T3F8; 
IIR: T-2F9; 
DLL: $2F8; 



LCR: T3FB; 
DLN-.T3F9) , 
LCR: T2FB; 
DLM: T2F9) ) ; 



(* Reprinted with extensive modifications from Advanced Techniques in 
Turbo Pascal by Charles Edwards, by permission of Sybex, Inc. 
Copyright 1987 Sybex, Inc. All rights reserved. 

Modified after "Re:: TF'4.0 Aux Problem" by Naoto Kimura, reprinted ' 
by permission of the author. 

**^**^*^**^********** Continue Edwards Excerpt ********************) 



(******************** Continue Edwards Excerpt ********************) 
Var RS_Buffer : Array C 1 . . 2, 0. . RS_Buf f er_Si ze3 of Byte; 

RS_Buf _Head , 

RS_Buf_Tail : Array Cl.. 23 OF word; 
index : byte; 

Line_settings : byte; 

Procedure Di sabl elnterrupts; 

{ Insert assembly code to disable computer interrupts } 

INLINE < $FA ); 

Procedure Enabl elnterrupts; 

C Insert assembly code to enable computer interrupts } 

INLINE ( $FB ); 

Function RS232_Avai 1 : Boolean; 

{This function returns TRUE if there are characters to be read from 
the RS232 port. It is analogous to the Turbo function KEYPRESSED for 
the keyboard. 

Begin 

Rs232_Avai 1 := 

RS_Bu.f _Hea.d C Current_C0M ] <> RS_Buf_Ta.il C Current_CQM ]; 
End; Cor RS232_Ava.il} 

Procedure RS232_ISR1 

(Flags, CS, IP, AX, BX, CX, DX, SI, DI, DS, ES, BP : word); 
INTERRUPT; 

•C This procedure handles interrupts from RS232 port one 
THIS PROCEDURE MUST NOT BE CALLED BY ANY OTHER PROCESS } 



Begin 

Di sabl elnterrupts; 

RS_Error : =F‘ortC RegsE C0M1 ] . LSR ] and $1E; 

RS_Buf f er C C0M1, RS_Buf_Tail C C0M1 ]] := PortCRegsC C0M1 3.RBRD; 
RS_Bu.f_Ta.ilC C0M1 ] := < RS_Buf_Ta.il C C0M1 ] + l) 
mod (RS_Buf f er_Size+l ) ; 

Enablelnterr u p t s ; 

PortC $20 ] := $20; {Report end of service to PIC3- 
End; {of RS232_ISR1 } 

(* Reprinted with extensive modifications from Advanced Techniques in 
Turbo Pascal by Charles Edwards, by permission of Sybex , Inc. 
Copyright 1987 Sybex, Inc. All rights reserved. 

Modified a.fte^ "Re:: TP4.0 Aux Problem" by Naoto Kimura, reprinted 
by permission of the author. 

Continue Edwards Excerpt **#***#*±+**+**--*-*+*±) 
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(******************** Continue Edwards Excerpt ******#******•*•**•#•**•*-) 
Procedure RS232_ ISR2 

(Flags, CS, IP, A.X, BX, CX, DX , SI, BI, DS, ES, BF‘ : word); 
INTERRUPT; 

(This procedure handles interrupts -from RS232 port two 
THIS PROCEDURE MUST NOT BE CALLED BY ANY OTHER PROCESS! 

Begin 

Di sabl elnterrupts; 

RS_Error : =Port C Regs! COM2 3.LSR ] and $1E; 

RS_Buf f er [ COM2, RS_Bu.f_Tail [ COM2 ]] := Port [Regs [ COM2 3.RBR3; 
RS_Buf_Ta.il [ COM2 3 := ( RS_Buf_TailC COM2 3 + 1) 
mod (RS_Buf f er_Size+l ) ; 

Ensbl elnterrupts; 

°ort[ $20 3 := $20; [Report end of service to PIC! 

End; {of RS232_ISR2 > 

Procedure RS_Break; 

C This procedure instructs the currently selected data communications 
port to send a break signal! 

Begi n 

Port CRegsCCurrent_Com3 . LORD : = 

Port [Regs[Current_Com3 . LCR3 or LCR_BREAK; 

Del ay (200); {1/5 second! 

Port [Regs[Current_Com 3 . LCR3 : = 

Port IRegs CCurrent_Com3 . LCR3 xor LCR_BREAK; 

End; {of RS_Break> 

Function RS232_ In : Char «• 

[The AUX device is set to point to this function for input. It returns 
the next character received from the RS232 port. 

J 

Begin 

While RS_Buf_Hesd l Current_C0M 3 
Delay (10) ; 

RS232_In := 

Char ( RS_Buffer [ Current_C0M, 

RS_Bu.f_Head C Current_CQM 3 : = 

(RS_Buf_Head C Current_C0M 3+1) 

End; (of RS232_In! 

(+ Reprinted with extensive modifications from Advanced Techniques in 
Turbo Pascal by Charles Edwards, by permission of Sybex , Inc. 
Copyright 1987 Sybex, Inc. All rights reserved. 

Modified after "Re:; TP4.0 Aux Problem" by Naoto Kimura, reprinted 
by permission of the author. 

**♦********•**♦♦******- Continue Edwards Excerpt **#**********#******) 



= RS_Buf_Tail [ Current_C0M 3 Do 

RS_Buf _Head C Current_C0M 33); 
mod (RS_Buf f er_Si ze+1 ) ; 
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(******************** Continue Edwards Excerpt ********************) 



Procedure RS232_0ut ( F'aram : Char ) ; 

•C Sends the character to the RS232 port. > 

Begin 

While (( Port [Regs [ Current_Com H.LSR1 and $20) <> $20) 
[Transmit Reg empty! 

do Delay ( 1 ) ; 

(* Request to send *) 

Port [ Regs [ Cu.rrent_C0M ] . MCR ] := MCR_RTS OR MCR_0UT2; 

IF Chk_DSR THEN 

While ((PortE Regs [ Current_C0M ].MSR] and MSR_DSR) <> MSR_DSR) 
do Del ay (1); [Wait a while! 

IF Chk_CTS THEN 

While ( (PortE Regs E Current_CQM l.MSR] and MSR_CTS) <> MSR_CTS) 
do Del ay (1); [Wait a while! 

F'ortERegsE Curren.t_C0M l.THR] := Byte ( F’aram ); 

RS_Error : =0: 

End ; 

(* Reprinted with extensive modifications from Advanced Techniques in 
Turbo Pascal by Charles Edwards, by permission of Sybex, Inc. 
Copyright 1987 Sybex, Inc. All rights reserved. 

Modified after "Re:: TF'4.0 Aux Problem" by Naoto Kimura, reprinted 
by permission of the author. 

************************ End Edwards Excerpt **********************) 

(************************* Start de Boer extract ********************) 
PROCEDURE Enable ( IRQ : byte ); 

C Set the Interrupt Mask Register on the Programmable Interrupt 
Controller to recognize interrupts from this port ! 



BEGIN 

Port E I MR] := Port EIMR] AND NOT ( 1 SHL IRQ ); 

END; [ Enable ! 

PROCEDURE Disable ( IRQ : byte ); 

•C Reset the Interrupt Mask Register on the Programmable Interrupt 
Controller to ignore interrupts from this port ! 

BEGIN 

Port EIMR] := Port EIMR] OR ( 1 SHL IRQ )$ 

END; [ Disable ! 



(* Reprinted from "Serial Unit in TF'4" by Reino de Boer, by permission 
of the author. Copyright 1987 Reino de Boer. All rights reserved, 
+**********************■* Continue Boer Excerpt *********************) 
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(*********************** Continue de Boer extract ********************) 



PROCEDURE Establish ( COM : byte ); 

C Raise all hardware handshaking lines to prepare tor 
communications } 

BEGIN 

WITH Regs C COM ] DO 

Port C MCR ] := MCR_DTR OR MCR_RTS OR MCR_0UT2; 

END; 

PROCEDURE SendEOI ( IRQ : Byte ); 

•I Send an End Ot Interrupt command to the Programmable Interrupt 
Controller to let it know we are done servicing this interrupt } 

BEGIN 

Port [ ISP ] := $60 OR IRQ; 

END; 

Procedure ResetChip ( Com : Byte ); 

C Disable UART generated interrupts, drop the hardware handshaking 
lines. Shut down the currently selected communications port } 

Var Dummy : byte; 

Begin 

WITH Regs C Com ], Comport [ Com 3 DO BEGIN 

WHILE ( ( Port [ LSR 3 AND LSR_DATA ) <> 0 ) DO 
Dummy := Port C RBR 3; 

Di sabl e Interrupts; 

•C Allow none of the interrupt types } 

Port [ IER 3 := 0: 

•C Tell modem we're not ready } 

Port [ MCR 3 := Port C MCR 3 AND 

NOT < MCR_0UT2 OR MCR.DTR OR MCR_RTS ) ; 

C Disable all interrupts for this port } 

Disable ( IRQNo ); 

Enable Interrupts; 

END; 

END; 



ION ST C Bit rate divisor table } 

Divisor : ARRAY CRS_Baud3 OF word = 

( 1047, 763, 384, 192, 96, 48, 24, 12, 6, 3 ); 



(* Reprinted from 
of the author. 



"Serial Unit in 
Copyright 1987 



TP4" by Reino de Boer, by permission 
Reino de Boer. All rights reserved. 



Continue Boer Excerpt ****•*****■******-**•■*-•#•**) 
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(*********************** Continue de Boer extract ********************) 



•C Select bit rate by programming the PBRG > 

PROCEDURE SelectBitRate ( COM : byte; Speed : RS.Baud ); 

CONST PBRG_Settl e : word = 250; 

VAR BaudDiv : word; 



BEGIN 

•C Update port data 3 

ComPort C Com 3. Speed := Speed; 

BaudDiv := Divisor [ Speed 3; 

•C Set Divisor Latch Access Bit > 
portC Regs C Com 3.LCR 3 := 

portC Regs C COM 3 . LCR 3 OR LCR_DLAB; 

•C Bit rate divisor to PBRG 3- 

portwC Regs l COM 3.RBR 3 := BaudDiv; 

•C Give port some time to settle 3- 
del ay ( PBRG_Settle >; 

C Reset function of RBR 3- 
portC Regs [ COM 3 , LCR 3 := 

port [ Regs C COM 3. LCR 3 XOR LCR_DLAB; 
END; C SelectBitRate 3- 



{ Set word length in Line Control Register } 

PROCEDURE Sel ectWordLencth ( COM : Byte; Length : byte ); 



VAR LineControl : byte; 

BEGIN 

{ Update port data. 3- 

ComPort C Com 3. Length := Length; 

LineControl := portC Regs [ Com 3. LCR 3; 

LineControl := ( LineControl AND ( NOT LCR_CHR8 ) ) 
OR (Length - 5) ; 

{ Set relevant bits 3- 

portC Regs C COM 3.LCR3 := LineControl; 

END; C Sel ectWordLength 3- 



Reprinted from “Serial Unit in TP4" by Reino de Boer, by permission 
of the author. Copyright 1987 Reino de Boer. All rights reserved. 
************************ Continue Boer Excerpt *********************) 
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(*********************** Continue de Boer extract ********************) 



{ Set stopbits in Line Control Register > 

PROCEDURE Sel ectFrami ng ( COM : Byte; Stop : byte ); 

VAR LineControl : byte; 

BEGIN 

•C Update port data 3 
ComPort [ Com D.Stop := Stop; 

LineControl := portC Regs l Com ] . LCR ]; 

LineControl := ( LineControl AND ( NOT LCR_Stop2 ) ) 
OR ( (Stop - 1 ) *4) ; 

{ Set relevant bits } 

portC Regs C COM ] . LCR ] := LineControl; 

END; C Sel ectFrami ng } 



{ Set parity in Line Control Register > 

PROCEDURE Sel ectPari ty ( COM : byte; Parity : RS_Parity); 

VAR LineControl : byte; 

BEGIN 

ComPort C Com 3. Parity := Parity; 
i Update port data > 

LineControl := portC Regs C Com ] . LCR ]; 

LineControl := ( LineControl AND ( NOT $40 ) ) 

OR ORD (Pari ty ) *8; 

•( Set relevant bits > 
portC Regs C COM D.LCR] := LineControl 
END: C Sel ectPari ty } 

CONST RTS_Settle : byte = 2; 

DTR_Settle : byte = 2; 

PBRG_Settle : word = 250; 

(* Reprinted -from "Serial Unit in TP4" by Reino de Boer, by permission 
of the author. Copyright 1987 Reino de Boer. All rights reserved. 
************************** End de Boer Excerpt *********************) 
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Procedure PurgeLine; 

•C This -function clears the receive bu-f-fer and UART receive bu-f-fer -for 
the currently selected port} 

VAR 

Dummy : Byte; 

BEGIN 

RS_Bu-f_Head [ Current.CON 3 := 0; 

RS_Bu-f_Ta.il C Current.COM 3 := 0; 

Dummy := Port [Regs[Current_C0N3 . RBR3 ; 

End; -Co-f PurgeLine} 

FUNCTION Connected : boolean; 

i Returns TRUE i-f the Data Set Ready line is true, signalling hardware 
handshaking } 

BEGIN 

Connected := Port [RegsCCurrent_Com3 . MSR3 and $80 = $80; 

END; 

Function RS232_peek : Char; 

C Added to allow nondestructive read o-f the currently selected port 
input bu-f-fer -for xmodm. Sync_recei ve} 

Begin 

While RS.Buf.Head l Current.CON 3 = 

RS_Buf_Ta.il C Current.COM 3 do Delay (10); 

RS232_peek : = Char ( RS.BufferC Current.COM, 

RS.Buf .Head CCurrent.COM] 3); 

End; -Ccf RS232_Peek> 

Procedure RS.Eight.Bits; 

•C Adjust the comport for eight bits regardless of current setting } 
BEGIN 

Port [ Regs C Current.Com 3.LCR 3 := LCR.N0PARITY OR LCR.STOF'l 

OR LCR.CHR8; 

END; 

Procedure RS_Restore ( CON : byte ) ; 
i Reinitialize the CON Port } 



BEGIN 

WITH Comport [ CON 3 DO 

RS.Initial ize ( Com, Speed, Parity, Stop, Length ); 

END; 
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Procedure Send_String ( S : String ); 

•C Send a string out the currently selected RS232 port } 

BEGIN 

IF Length (S) > 0 THEN 

FOR index := 1 to Length (S) DO 
RS232_0u.t ( S C index 1 ); 

END; 

(********************** Start Edwards Excerpt ***********************) 
Procedure RS232_Init ( COM, Params : word ); 

C Call BIOS interrupt $14 with a formatted word to initialize the 
currently selected communications port } 

VAR Regs : DOS. Regi sters; 

BEGIN 

Regs.DX := Com-1; 

Regs. AX := Params; 

Intr ($14, Regs) ; 

END; 

"Tocedure RS_Ini tial ize (Com: Byte; Speed: RS_Baud; Pari ty: RS_Pari ty; 

Stop , Length: Byte) ; 

{ Initialize communications port. Vector the appropriate interrupt to 
point to our interrupt service routine. Initialize hardware 
handshaking lines. Store current settings in a data structure for 
restoration . 



Input; COM 

Speed 

P 

Stop 

Length 



- The RS232 port to be handled 

- The baud rate of the line 

- The parity of the line 

- The number of stop bits 

- The number of data bits 



Var Params : word; 



(* Reprinted with extensive modifications from Advanced Techniques in 
Turbo Pascal by Charles Edwards, by permission of Sybex , Inc. 
Copyright 19S7 Sybex, Inc. All rights reserved. 

Modified after "Re:; TP4.0 Aux. Problem" by Naoto Kimura, reprinted 
by permission of the author. 

********************* Continue Edwards Excerpt ********************) 
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(******************** Continue Edwards Excerpt ********************) 
Begin 

WITH Regs C COM ] DO BEGIN 

Current_Com: =Com; {save comm port in local variable) 

F'arams := Ord (Speed) *32 + Ord (Pari ty) *8 + (Stop-l)*4 + Length-5; 

•C Calling the BIOS service to initialize the port 
* clears * all UART interrupts ) 

RS232_Ini t ( COM, Params ); 

Delay ( PBRG_Settle ); C delay to allow UART to settle ) 

Port C LCR ] := 

Port C LCR ] AND ( NOT LCR_DLAB ); 

{ Set our interrupt handler ) 

CASE Com OF 

1 : Set IntVec ( C0M1_INTR, Addr ( RS232_ISR1 )); 

2 : Set IntVec ( C0M2_INTR, Addr ( RS232_ISR2 )); 

END; 

ResetChip ( Com ); 

Di sabl elnterru.pts; 

Establish ( COM ); 

Enable ( Comport C Current_Com l.IRQNo ); 

•C Interrupt on receive only ) 

Port C Regs C COM 3.IER ] := IER_RDA; 

•C Clear the port butter } 

RS_But_Head [ Com ] :=0: 

RS_Buf_Tail C Com 3 :=0; 

•C Reset any stray interrupts in the PIC ) 

SendEOI ( Comport C Current_Com l.IRQNo ); 

Enable Interrupts; 

Comport C Current _Com 3. Speed := Speed; 

Comport L Cu.rrent_Com 3. Parity := Parity; 

Comport C Current_Com 3 . Stop := Stop; 

Comport C Current_Com 3. Length := Length; 

Comport C Current_Com 3. Installed := TRUE; 

END ; 

End; Cot Initialize) 

(* Reprinted with extensive modi ti cations trom Advanced Techniques in 
Turbo Pascal by Charles Edwards, by permission ot Sybex , Inc. 
Copyright 1937 Sybex, Inc. All rights reserved. 

Moditied atter "Re:: TF'4.0 Aux Problem" by Naoto Kimura, reprinted 
by permission ot the author. 

Moditied atter "Serial Unit in TF'4" by Reino de Boer, reprinted by 
permission ot the author. Copyright 1987 Reino de Boer. All 
rights reserved. 

********************* Continue Edwards Excerpt ********************) 
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(******************** Continue Edwards Excerpt ********************) 
CONST 

ExitF’tr : pointer = NIL; 

OldlntVecl : pointer = NIL; 

01dIntVec2 : pointer = NIL; 

01 d_IMR : byte = 0; 

01d_IERl : byte = 0; 

01 d_IER2 : byte = 0; 

Procedure RS_Cleanup; 

[This procedure should be called on exit to disable interrupts on the 
RS232 port and reset everything to its de-fault state. 



Begin 

Comport [ Current_Com 3. Installed := FALSE; 

ResetChip ( Current_Com ): 

End; {of Cleanup} 

(* Reprinted with extensive modifications from Advanced Techniques in 
Turbo Pascal by Charles Edwards, by permission of Sybex , Inc. 
Copyright 1987 Sybex, Inc. All rights reserved. 

Modified after ”Re: ; TF‘4.0 Aux Problem" by Naoto Kimura, reprinted 
by permission of the author. 

Modified after "Serial Unit in TF'4" by Reino de Boer, reprinted by 
permission of the author. Copyright 1987 Reino de Boer. All 
rights reserved. 

********************* Continue Edwards Excerpt ********************) 
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(******************** Continue Edwards Excerpt ********************) 

(* This is the error handler -for Datacomm *) 

(***************************** Start Swan Excerpt *******************) 
CDNST 

HexDigit : ARRAY CO. . 153 DF Char = '0123456789ABCDEF ' ; 

TYPE 

string2 = stringC23; 
string4 = stringC43; 

F'trRec = RECORD 

Ofs, Seg : word; 

END; 

FUNCTION Hex Byte (B : Byte ) : string2; 

BEGIN 

Hex Byte := HexDigit CB SHR 43 + HexDigitCB AND f-F3 ; 

END; 

FUNCTION Hex (I : Word) : string4; 

BEGIN 

Hex := Hex Byte (Hi ( I ) ) + Hex Byte (Lo ( I ) ) ; 

END; 

(* Reprinted -from Mastering Turbo Pascal Files By Tom Swan, by 

permission of Howard W. Sams and Company. Copyright 1987 Howard W. 
Sams and Company. All rights reserved. 

***************************** End Swan Excerpt *********************) 

•Ct-F+j- PROCEDURE Data.comm_Error ; -C*F~} 

•C This is the Exit Procedure -for * this * unit > 

VAR index : byte; 



BEGIN 

IF (ExitCode <> 0) OR (ErrorAddr <> NIL) THEN 
BEGIN 

Assi gn (Output , ' ' ) ; 

Rewrite (Output) ; 

(*Writeln (#7) ;*) 

IF ExitCode = $FF THEN 
Writelnt 'USER BREAK') 

ELSE 



(* Reprinted with extensive modifications from Advanced Techniques in 
Turbo Pascal by Charles Edwards, by permission of Sybex , Inc. 
Copyright. 1987 Sybex, Inc. All rights reserved. 

Modified after "Re:: TP4.0 Aux Problem" by Naoto Kimura, reprinted 
by permission of the author. 

********************* Continue Edwards Excerpt ********************) 
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( ******************** Continue Edwards Excerpt ********************) 
BEGIN 

Writeln ('Critical Error # HEX (Ex 1 tCode) ) ; 

Write ('AT PROGRAM LOCATION’); 

W-iteln (HEX (sea (Error Addr - ^) Hex (of s (Error Addr' s ) ) ) ; 
END; 

END; 

Di sabl e Interrupts; 

•C Restore the previous interrupt vectors > 

Set IntVec ( C0M1_INTR, OldlntVecl ); 

Set IntVec ( C0M2_INTR, 01dIntVec2 ); 

Enabl e Interrupts; 

■C Shut down the ports > 

FOR index := C0M1 TO COM2 DO BEGIN 

PortC Regs [ index 3 . LCR] : =Port C Regs C index 3.LCR3 and $7F; 
PortC Regs C index 3 . I ER 3 : =0 ; 

PortC Regs e index 3.MCR3:=0; 

END; 

\ Restore the PIC interrupt mask } 

Port e I MR 3 := 01 d_IMR; 

Exit°roc := ExitPtr; 

END; i Datacomm_Error > 



BEGIN I Unit Initialization > 

CheckBreak := TRUE; 

C Save the existing exit procedure for this unit > 

ExitPtr ; = Ex 1 1 Pr oc ; 

C Save the existing interrupt mask for the PIC > 

Qlc_IMR := Port e I MR 3; 

•C Save the current serial port interrupt vectors > 

Get IntVec ( CCM1_INTR, OldlntVecl); 

Get IntVec ( C0M2_INTR, GldIntVsc2); 

•C Clear the receive buffers > 

RS_Buf_Head E C0M1 3 : = 0; 

RS_Buf _Heed C C0M1 3 := 0; 

RS_Eu-_7ai 1 C COM2 3 := 0; 

RS_Buf_Ta.il C COM2 3 : = 0; 

•C link in our unit exit procedure to undo all of the above on 
program termination } 

ExitProc ;= Addr (Dataoomm_error ) ; 

{ Set up both ports to initial values > 



( * Repri 



extensive modifications from Advanced Technicues in 



Turbo Pascal by Charles Edwards, by permission of Svbex. Inc. 



..OC' 



‘ 1 ni 



1?S7 Svbex, Inc. All rights reserved. 



Modified after "Re:; TP4.0 Aux Problem" by Naoto Kimura, reprintec 
by permission of the author. 

++*♦♦♦ +***■*■ **-*-•- ■*•**-»•** Continue Edwards Excerpt 
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********+**+*-*-+****•«- > 



********************) 



(******************** Continue Edwards Excerpt 
FOR index := C0M1 TO COM2 DO 
WITH Comport [index 3 DO BEGIN 
Stop 



Length 



= i 



= 8 : 



Alias 
Speed 
Par i ty 
IRQNo 
Installed 
end; 



{ COMPOR 



= B4800; 

= None; 

= IRQLine [ 
:= FALSE; 

T initial 



index 3; 
isaton } 



END. 



(•* Reprinted with ex tensive modifications -from Advanced Techniques in 
Turbo Pascal by Charles Edwards, by permission of Sybex , Inc. 
Copyright 19S7 Sybex, Inc. All rights reserved. 

Modifications reprinted from "Serial Unit in TP4” by Reino de Boer, 
by permission of the author. Copyright 1987 Reino de Boer. All 
rights v 'e served. 

End Edwards 



Excerpt ) 



APPENDIX Q 



r 



SOURCE LISTING FOR UNIT DIRECTOR 



(********#*********#**##*****###*#*#########**##*####*****#*********) 
(**■** DIRECTOR. PAS ***■*) 

(a-*#**#**#*****# Turbo Pascal 4.0 unit to read a directory ##*######) 



(###**####*#*##* and display it 

(*************** Date: 28 July 1989, 10:06:53 MEZ 
(*##***##**■***** From: Christian Boettger 
(*#****###*#**** +49 (0)531 3915113 / 12010506 at DBSTU1 
<* 

(* Modified slightly to change presentation 

(* -for the window manager 

(* and to use the error reporting capability 

<* o-f UNIT ErrorC-od 

(* by Nelson Ard 

(* Last modi-f icati on Sep 89 



*######*#) 

#########) 

###*#####) 

##*#*###*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 



(*************#******#********#*##***********#*#*##*#***##*##*###***) 
unit director; 



i nt erf ace 



uses dos.crt, ErrorCod; {ErrorCod added)- 

procedure Vi ewDi r (MatchPtrn : string; FromLine, ToLine : integer); 
procedure ShowDir (MatchPtrn : string; FromLine, ToLine : integer; 

var error : integer); 

Reprinted from "Turbo Pascal 4.0 unit to read a directory and 
display it" by Dipl. F'hys. Christian Boettger, by permission of the 
author . 

*********+*****+*+ Continue Boettger Excerpt ********************) 
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(********************* Continue Boettger Excerpt ********************) 
implementation 

procedure StandBy; 

var x,y : integer; 

muell : char; 
begin 

x:=whereX; y:= WhereY; 

HighVideo; 

'write ('Hit any key to continue '); 

NormVi deo; 

repeat until keypressed; 
muell := ReadKey; 

wri te ( ' ' ) ; 

GotoXY (x ,y) ; 
end; 



( * Reprinted from "Turbo Pascal 4.0 unit to read a directory and 

display it" by Dipl. F’hys. Christian Boettger, by permission of the 
author . 

************************* End Boettger Excerpt ************+*******) 
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( ********************* Start Verbraeck Excerpt ********************) 
procedure Vi ewDi r (MatchPtrn : string; FromLine, ToLine : integer); 
(******************************************************************** 



Ir. Alexander Verbraeck e-mail: 

Delft University of Technology winfavedhdetudl.bitnet 

Department of Information Systems winfave@dutrun.uucp 

PO Box 356, 2600 AJ The Netherlands 



********************************************************************) 

var 

Dirlnfo : SearchRec; 

Li ne , 

Position : integer; 

begin 

LowVi deo; 

GotoXY ( 1 , FromLi ne) ; ClrEol; 

Li ne: =FromLi ne; Positional; 

FindFirst (MatchPtrn , T-37, Dir Info) ; 
if DosErrorOO then 

wr i tel n ( ' *** NO FILES FOUND *** ' ) 
el se 

while (DosError=0) and (Line < ToLine ) do 
begin 

GotoXY (Position , Li ne) ; 

if Di r Inf o. Attr=$10 then HighVideo; 

w^ite (Di r Inf o. Name) ; 

LowVi deo; 

Position: =Posi ti on+16; 
if Position >65 then 
begin 

Line: =Line+l ; 

F’osi ti on: =1 ; 
end; 

F i ndNext (Dirlnfo) ; 
end ; 

NormVi deo; 
end ; 



(* This portion reprinted from "Turbo Pascal 4.0 unit to read a 

directory and display it" by Dipl. Phys. Christian Boettger, with 
the permission of Ir. Alexander Verbraeck, the original author. 
********************** End Verbraeck Excerpt ********************) 
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(********************* Start Boettger Excerpt ********************) 



procedure ShowDi r (MatchPtrn : string; FromLine, ToLine : integer; 

var error : integer); 

(************************#*********#********************************* 
Christian Boettger phone: (+49) (0)531/391-5113 

mail: Institut -fuer Metal lphysik und Nukleare Festkoerperphysi k , 

(room -167/-168) , Technische Universitaet Braunschweig, 

Mendel ssohnstrasse 3, D-3300 Braunschweig, land 
Bundesrepubl i k Deutschland (West Germany / FRG / RFA) 

EARN: I20105G6@DBSTU1 . BITNET InterNet: boettger@jul i an. uwo. CA 

UseNet: boettger© jul i an. UUCP 

UUCP / UseNet: 

(whereever ) ! uunet ! watmath ! jul i an ! boettger 
(whereever ) ! uunet ! boettger©hydra. uwo. CA 
( whereever ) ! uunet ! mcvax ! uni do ! i 2010506@DBSTU1 . BITNET 
*********************************************************************) 
var Dirln-fo : SearchRec; 
start , i , 

line, ml : integer; 

procedure Wr i teEntry (Di r Inf o : SearchRec; line : integer); 
var DT : BateTime; 

attribut : string; 



procedure 

begin 

case 



GetAttribut (attr : byte; var attribut : string); 



attr of 

Readonly : attribut 
Hidden : attribut 
SysFile : attribut 
VolumelD : attribut 
Directory : attribut 
Archive : attribut 
AnyFiie : attribut 
else begin 

Str (attr , attribut ) ; 
attribut := 'Attr = 
end ; 

end ; 



'Readonly' ; 

' Hi dden ' ; 

' SysFi 1 e ' ; 

' Vol umelD ' ; 

' Di rectory ' ; 
' Archive ' ; 
'AnyFi le ' ; 



+ attribut; 



end ; 



(* Reprinted from "Turbo Pascal 4.0 unit to read a directory and 

display it" by Dipl. Phys. Christian Boettger, by permission of the 
author . 

********************** Continue Boettger Excerpt ■********************) 



159 



(********************* Continue Boettger Excerpt ********************) 
begin (*of Wri teEntry*) 
with Dirlnfo do 
begin 

UnPackT i me (Ti me, dt ) ; 

GetAttribut (attr ,attribut) ; 

GotoXY ( 1 , 1 i ne) ; ClrEol; 

IF attr = Directory THEN HighVideo; 
write ( Name ); 

GoToXY ( 13, line ); 

IF attr = Directory THEN 
Write ( ' < D I R > ' ) 

ELSE Write ( size : 8 ) ; 

GotoXy ( 24, line ); 

{Write (Name: 12,' ',Size:B,' '); 3- 

with dt do 
begin 

wri te (day: 2, ' - ' , month: 2 , ' - ' , year : 4 , ' ' ) ; 

write (hour: 2, ': ' ,min:2, ': ' ,sec: 2, ' ' ) ; 

end = 

writeln(' ',attribut); 

LowVideo; 
end ; 

end; (*of WriteEntry*) 

begin (*of ShowDir*) 

Ml := ToLine - FromLine; 
start := WhereY+1; 

Fi ndFi rst (MatchPtrn , AnyFile, Dirln-fo); 
case DOSError of 
0 : begin 

Wri teEntry (Di r Inf o , start ) ; 
line := start; 
while DDSError=0 do 
begin 

FindNext (Di r Inf o) ; 

Inc (1 ine) ; 

if line>Ml then begin 
StanoBy; 
line := start; 

Cl rScr ; 
end ; 

if DosError=0 then Wri teEntry (Di r Inf o , 1 i ne) 



(* Reprinted from "Turbo Pascal 4.0 unit to read a directory and 

display it" by Dipl. F'hys. Christian Boettger, by permission of the 
author . 

***+****************** Continue Boettger Excerpt **********#*********) 
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(********************* Continue Boettger Excerpt ********************) 

else begin 

GotoXY ( 1 , 1 i ne) ; 

ClrEol ; 
wri tel n; 

ClrEol; 

wri tel n (Error_Code [ DOSError ],' !!'); 
wri tel n; 

ClrEol ; ' 

GotoXY ( 1 , WhereY) ; 
end ; 
end : 

error :=0; 
end; 

2 : begin 

GotoXY ( 1 , start ) ; 

wri tel n (Error_Code [ DOSError 3,' !!'); 

wri tel n (' Di rectory not -found!!'); 
error := DOSError; 
end ; 

IS : begin 

GotoXY ( 1 , start ) ; 

wri tel n (Error_Code C DOSError 3,' !!'); 
wri tel n ( 

'No Entries in directory that match pattern !!'); 
error := DOSERROR; 
end ; 

else begin 

GotoXY (1, start ) ; 

wri teln (Error_Code [ DOSError 3,' !!'); 
error := DOSError; 
end; 

end; 

end: (*of ShowDir*) 



(* Reprinted -from "Turbo Pascal 4.0 unit to read a directory and 

display it" by Dipl. Phys. Christian Boettger, by permission o-f the 
author . 

*****+**************** End Boettger Excerpt ********************) 
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APPENDIX R 
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l 



SOURCE LISTING FOR UNIT ERRORCOD 



J 

(*************** ******************************************** ******** ) 



<**** ERRORCOD. PAS ****) 
(**** This unit maps MS-DOS error codes returned by the ****) 
(*■*** operating system to strings to give the operator a ****) 
(**■** human readable response. ***■*) 
(*•*** •****) 
<**** Reference: MS-DOS Version 3 Programmer's Utility Pack ****) 
(*•*** MS-DOS Reference Guide Volume 1 ****) 
(*♦** 1986, pp. 4.86-4.88, 4.254-4.257. *■***) 
(**■** •****) 
(**•** Developed by Nelson Ard ****) 
(•**** ****) 
(**** Last modification Sep 89 ****) 



( ****************************************************************-*-**) 

UNIT ErrorCod; 

INTERFACE 
USES Dos; 

CONST Error_Code : ARRAY CO.. 88] OF 
stringC40] = ('No errors', 

'Invalid function code', 

'File not found ' , 

'Path not found', 

'No file handles left', 

'Access deni ed ' , 

' Inval id hanol e ' , 

'Memory control blocks destroyed', 

'Insufficient memory', 

'Invalid memory block address', 

'Invalid environment', 

' Inval i d f ormat ' , 

'Invalid access code', 

' Inval i d data ' , 

'RESERVED error code', 

' Inval id drive', 

'Attempt to remove the current directory', 

'Not same device ' , 

'No more files', 

'Disk is wri te-protected ' , 

'Bad disk unit', 
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'Drive not ready ' , 

'Invalid disk command', 

' CRC error ' , 

'Invalid length (disk operation) 
'Seek error', 

'Not an MS-DOS disk', 

'Sector not •found', 

'Out of paper', 

'Write f aul t ' , 

' Read fault ' , 

'General failure ' , 

'Snaring violation', 

'Lock violation ' , 



' Wrong disk ' , 

'FOB unavailable', 
'RESERVED error code' 
'RESERVED error code' 
'RESERVED error code' 
'RESERVED error code' 
'RESERVED error code' 
'RESERVED error code' 
'RESERVED error code' 
'RESERVED error code' 
'RESERVED error code' 
'RESERVED error code' 
'RESERVED error code' 
'RESERVED error code' 
'RESERVED error code' 
'RESERVED error code' 



9 

9 

9 

9 



9 

9 

9 

9 

9 

« 

9 



9 



'Network request not supported', 
'Remote computer not listening', 
'Duplicate name on network', 



'Network name not found', 



'Network busy', 

'Network device no longer exists 
'Net BIOS command limit exceeded 



'Network adapter hardware error' 

' Incorrect response from network 
'Unexpected network error', 
'Incompatible remote adapt', 
'Print queue full', 

' Queue not f ul 1 ' , 

'Not enough space for print file 
'Network name was deleted', 
'Access denied ' , 

'Network device type incorrect', 
'Network name not found', 
'Network name limit exceeded', 
'Net BIOS session time exceeded' 



' r empor8ri ly paused', 

'Network request not accepted', 



'Print or disk redirection is paused', 
'RESERVED error code', 

'RESERVED error code', 

'RESERVED error code', 

'RESERVED error code', 

'RESERVED error code', 

'RESERVED error code', 

'RESERVED error code', 

'File exits ' , 

'Duplicate File Control Block', 

'Cannot make', 

'Interrupt 24 -failure', 

'Out o-f structures', 

'Already assigned', 

'Invalid password', 

'Invalid parameter ' , 

' Net write f aul t ' ) ; 

CONST Error_Cl ass : ARRAY Cl.. 12] OF stringC403 = 

('Out o-f a resource', 

'Temporary situation', 

'Permission problem', 

'Internal error in system software', 
'Hardware -failure', 

'System software failure', 

'Application program error', 

'File or item not found', 

'File or item of invalid f ormat ' , 

'File or item interlocked', 

'Media failure - storage medium', 
'Unknown error'); 

Recommended_Error_Act i on : ARRAY Cl.. 7] OF StringC403 
('Retry, then prompt user', 

'Retry after a pause', 

'Reprompt user to reenter ' , 

'Terminate with clean up', 

'Terminate immediately', 

'Observe only', 

'Retry after correcting fault'); 

Error_Locus : ARRAY Cl.. 53 OF StringC403 = 

( ' Unknown ' , 

'Random Access block device', 

'Related to a. network', 

'Related to serial access device', 
'Related to RAM'); 
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PROCEDURE Extended_Error_Code (VAR Error_Code : INTEGER; 

VAR Error_Class : Byte; 

VAR Error_Locus : Byte); 

{ Following an error code returned by an MS-DOS -function call or 
I/O function, this may be called for amplification on the 
error } 

IMPLEMENTATION 
Var index : integer; 

PROCEDURE Extended_Error_Code (VAR Error_Code : INTEGER; 

VAR Error_Class : Byte; 

VAR Error_Locus : Byte) ; 



Var Regs : Registers; 
BEGIN 

Regs. AH := $59; 

Regs.BX := 0; 

Intr ($21 , Regs) ; 
Error_Code := Regs. AX; 
Err or _C1 ass := Regs.BH; 
Error_Locus := Regs.CH; 
END; 

BEG I N 
END. 
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APPENDIX S 

SOURCE LISTING FOR UNIT GENERAL 



(*******************************************************************) 



<** GENERAL. PAS **) 
(** This is a library o-f general purpose routines to augment the **) 
<** features of Turbo Pascal 4.0. This UNIT requires the standard**) 
(** units CRT and DOS supplied with the Turbo Pascal 4.0 compiler **) 
(** in order to compile. **) 
(** **) 
(** Reference: Edwards, C. C. , Advanced Techniques in **) 
(** Turbo Pascal , pp. 66 - 73, Sybex, Inc., 1987 **) 
(** **) 
(** Modified from a Turbo Pascal 3.0 include file to a **) 
(** Turbo Pascal 4.0 UNIT by Nelson Ard **) 
(** **) 
(** Last Modi f i cati on : Sep 89 **) 



( *****************+*****************************#*******************) 
<************************ Start Edwards Excerpt ******************) 

UNIT General; 

INTERFACE 

USES 

Dos , 

Crt ; 



TYPE 

Long_String = String £255]; 

Hex_Type = String £23; 

Cursor _Type= (Cursor _Smal 1 , Cursor_Laroe, Cursor_Invi si bl e) ; 



(* Reprinted with some modification from Advanced Techniques in Turbo 
Pascal by Charles Edwards, by permission of Sybex , Inc. Copyright 
1937 Sybex, Inc. All rights reserved. 

♦***+**************** Continue Edwards Excerpt ********************) 
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( ******************** Continue Edwards Excerpt ************•*•#•**•#•**•*) 

Procedure Fill Word (Var V; Num, Value: Integer) ; 

(*This procedure is similar to the Turbo procedure FillChar, except 
that it fills the variable with a 16 bit word value rather than an 
8 bit character.*) 

Procedure Exchange (Var S,D; L: Integer); 

(*This procedure is a fast machine languge routine to exchange the 
contents of two variables. No test is made concerning the 
compatibility of the variables. That is left to the programmer.*) 

Procedure Beep (Freo: Integer) ; 

(*This procedure produces a tone for 1/4 second*) 

Function Max (X,Y: Integer) : Integer; 

(*Max returns the larger of two integers*) 

Function Min (X,Y: Integer) : Integer: 

(*Max returns the smaller of two integers*) 

Procedure Cursor_Si ze (Size: Cur sor_Type; Mono: Bool ean ) ; 

(*This procedure changes the cursor into either an underline or a 
block cursor 



Input: Size = Cursor_Sma.il creates an underline cursor 
Cursor_Large creates a block cursor 
Cursor Invisible creates an invisible cursor 



*) 



Mono = True for a monochrome screen 

False for a color/graphics card 



Function Set_Time: Long_String; 

(*This procedure returns the time in the form HH:MM:SS xM*) 



(* Reprinted with some modification from Advanced Techniques in Turbo 
Pascal by Charles Edwards, by permission of Sybex , Inc. Copyright 
19S7 Sybex, Inc. All rights reserved. 

********************* Continue Edwards Excerpt ********************) 
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IMPLEMENTATION 



(******************** Continue Edwards Excerpt ********************) 
Procedure FillWord(Var V; Num, Value: Integer ) ; 

(*This procedure is similar to the Turbo procedure FillChar, except 
that it -fills the variable with a 16 bit word value rather than an 
8 bit character. 



Input: V: The variable which is to be filled 

Num: The number of words to full with the value 



Value: The 16 bit word 

*) 

Begin 

Inline(fC4/*BE/V 

/$8B/$8E/Num 
/$8B/$86/Value 
/*FC 

/*F2/$AB 

) ; 

End; (*of Fill Word*) 



to be stored in V 



( *LES DI , VCBF']*) 

( *MOV CX, [Num+BF'3*) 
(*M0V AX , [ Val ue+BP 3*) 
(*CLD*) 

(*REPNZ STOSW*) 



Procedure Exchange(Var S,D; L: Integer); 

(*This procedure is a fast machine languge routine to exchange the 
contents of two variables. No test is made concerning the 
compatibility of the variables. That is left to the programmer. 



Input: S,D: The variables to be exchanged 
L: The number of bytes to exchange 

*) 



Begin 

Inline <$1E 

/$C5/$B6/S 

/$C4/$BE/D 

/T8B/T8E/L 

/$FC 

/$26/$8A/$05 
/$86/f04 
/+46 
/$ AA 

/TE2/TF7 
/$1F 
) ; 

End; ( *of Exchange*) 



(*PUSH DS*) 

(*LDS SI , S [ BP 3 * ) 

(*LES DI , DEEP]*) 

(*MOV CX , CL+BF*]*) 
(*CLD*) 

(*L: MOV AL ,ES: LDI3*) 
(*EXCH [SI ] , AL*) 

(*INC SI*) 

(*STOSB*) 

(*L00P L*) 

(*POP DS*) 



(* Reprinted with some modification from Advanced Techniques in Turbo 
Pascal by Charles Edwards, by permission of Sybex , Inc. Copyright 
1987 Sybex, Inc. All rights reserved. 

*********+***-***■***■** Continue Edwards Excerpt ********************) 
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(******************** Continue Edwards Excerpt ********************) 
Procedure Beep (Freq: Integer ) ; 

(*This procedure produces a tone -for 1/4 second*) 

Begin 

NoSound; (*Reset -flag*) 

Sound (Freq) ; 

Del ay (250) ; 

Nosound; 

End; (*of Beep*) 

Function Max (X,V: Integer) : Integer; 

(*Max returns the larger o-f two integers*) 

Begin 

If X < Y then 
Max : =Y 
else 

Max : =X ; 

End; (*of Max*) 

Function Min (X , Y: Integer ) : Integer ; 

(*Max returns the smaller o-f two integers*) 

Begin 

It X < Y then 
Mi n: =X 
el se 

Min: =Y; 

End; (*cf Min*) 

Procedure Cursor_Si ze (Si ze: Cursor_Type; Mono: Bool ean ) ; 

(*This procedure changes the cursor into either an underline or 
a block cursor 

Input: Size = Cursor_Small creates an underline cursor 
Cursor_Large creates a block cursor 
Cursor _Invi si bl e creates an invisible cursor 

Mono = True -for a. monochrome screen 

False -for a col or/graphi cs card 

*) 

Const 

Cur sor_Val ues : Array CO.. 33 o-f Integer = ( $0607, $0007, $0C0D, $0000 ) ; 
Var Regs: Regi sters; 

Begin 

Regs. AX: =$0100; 

It Size = Cursor_Invi si bl e then 
Regs. CX: =$2607 

(* Reprinted with some modification from Advanced Techniques in Turbo 
Pascal by Charles Edwards, by permission of Sybex , Inc. Copyright 
1987 Sybex, Inc. All rights reserved. 

********************* Continue Edwards Excerpt ********************) 
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(******************** Continue Edwards Excerpt ********************) 



el se 

Regs. CX : =Cursor_Val Lies [ Or d (Mono) *2+0rd (Size) ] ; 

Intr ($10, Regs) ; 

End; (*ot Cursor_Size*) 

Function Get_Time: Long_String; 

(*This procedure returns the time in the -form HH:MM:SS xM*) 
Var Regs: Regi sters; 

Hour , Min , Sec , M: String [2] ; 

I : Byte; 

Begin 

Regs. AH:=$2C; 

MSDos (Regs) ; 

Str (Regs. CL: 2, Min) ; 

Str (Regs. DH: 2 , Sec ) ; 

For I : =1 to 2 do 
Begin 

It Min [ 13=' ' then MinCI]:='0'; 

It Sect 13=' ' then Sect 1 3 : = '0 ' ; 

End ; 

Case Regs.CH ot 
0: I: =12; 

13.. 23: I : =Regs. CH-12; 

else I:=Regs.CH; 

End; (* ot case*) 

St^ ( I : 2 , Hour ) ; 

It Hour [13=' ' then Hour [ 1 3 : = ' 0 ' ; 

It Regs.CH < 12 then 
M : = ' AM ' 
el se 

M : = ' PM ' ; 

Get_Time: =Hour+ ' : '+Min+ ' : '+Sec+' '+M; 

End; (*ot Get_Time*) 

BEGIN 

END. 



(* Reprinted with some moditication trom Advanced Techniques in Turbo , 
Pascal by Charles Edwards, by permission ot Sybex , Inc. Copyright 
1987 Sybex, Inc. All rights reserved. 

********************* Continue Edwards Excerpt ********************) 
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APPENDIX T 



r 



SOURCE LISTING FOR UNIT MISCPACK 



1 

J 

(*** * ************ * ****** ***** ****************** ** ************ ******* ) 



(**** MISCPACK. PAS ****) 
(**** This contains common data structure declarations -for **■**) 
(**** several units and a. couple of utility routines. *■***) 
(**** Derived from the include file of the same name in the ****) 
(**** reference. ***■*) 
(**** ****) 
(**** Reference: Swan, Turbo Pascal Files, 1987, pp. 14 - 26 ****) 
(**** Developed by Nelson Ard ***•*) 
(**** ****) 
(**** Last modi f i cati on Sep 89 ****) 



(*******************************************************************) 
UNIT Miscpack; 

{ USES no other packages > 

•C 15 -Jul 89 - Added stringl28, response_type > 

■C 19 Jul 89 - Added buffer for xmodm } 

•C 11 Sep 89 - deleted Val2He>; > 



INTERFACE 



CONST 



(********************** Start Swan Excerpt *************************) 
•C String Lengths } 



PathLen = 65; 
FileLen = 12; 
NameLen = 8; 
ExtnLen = 3; 
DriveLen = 2; 



•C Maximum complete path name length + 11 
C Maximum file name length (with extension) } 

•C Maximum file name length (without extension) > 
•C Maximum file extension length 1 
•C Maximum drive letter string } 



{ Typing helpers J 



Nul i Str 
B1 ank 



{ No blank between the quotes } 
•C A single blank character } 



(* Reprinted with some modification from Mastering Turbo Pascal Files 
By Tom Swan, by permission of Howard W. Sams and Company. Copyright 
1987 Howard W. Sams and Company. All rights reserved. 
************************ Continue Swan Excerpt *********************) 
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(*********************** Continue Swan Excerpt 



*********************) 



•C Keyboard control code translations > 



KeyRight 




■""D; 


{ 


Right arrow 


\ 

J 


KeyHome 


= 


•■"W; 


/ 

L 


Home 


\ 

J 


KeyUp 


= 


"E; 


,r 


Up arrow 


} 


KeyPgUp 




••'R; 


{ 


PgUp 


} 


KeyLef t 


= 


A S; 


f 

L 


Left arrow 


\ 

J 


Key End 


= 




{ 


End 


\ 

J 


KeyDown 


= 


"X; 


{ 


Down arrow 


■v 

J 


KeyPgDn 


= 


- S C; 


{ 


PgDn 


J 


Key Ins 


= 


"V; 


{ 


Ins 


■v 

J 


KeyBel 


= 


•'•6; 


{ 


Del 


-k 

J 



TYPE 



•C File and path name strings 3- 



PathString 
Fi 1 eString 
NameString 
ExtnStri ng 
Dr i veString 



= StringC 
= StringC 
= StringC 
= StringC 
= String!! 



F'athLen ]; 
FileLen 3; 
NameLen 3 ; 
ExtnLen '3; 
DriveLen 3; 



•C C:\TURBO\TEST.PAS > 

•C TEST. PAS } 

■C TEST } 

{ PAS } 

•C C: } 



•C Other strings > 



Hex St r 
StrSO 
stri ng!28 



= StringC 4 3; 

= StringC 80 3; 

= StringC 128 3; 



{ 4 - digit hex strings (FC9A) } 
•C 80-character strings } 



{Miscellaneous types } 



Pointer = •'■’•Byte; 

CharSet = SET QP CHAR; 



{ Pointer to memory bytes } 
■C Character sets > 



{ Added -for Spawn, Intrinsic Exec calls } 

Response_type = ( strng, file_type, nothing ); 

•C Added -for Parser, xmodm } 

CONST 

Max bloc! = 1024; 

(* Reprinted with some modification -From Mastering Turbo Pascal Files 
By Tom Swan, by permission of Howard W. Sams and Company. Copyright 
1987 Howard W. Sams and Company. All rights reserved. 
************************ Continue Swan Excerpt *********************> 
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(*********************** Continue Swan Excerpt *********************) 



TYPE 

Buffer = ARRAY C 1 . . Maxblockl OF CHAR; 

PROCEDURE BumpStrUp ( VAR s : String ); 

•C Convert (bump) all chars in string s to uppercase } 
IMPLEMENTATION 

PROCEDURE BumpStrUp (VAR s : String); 

•C Convert (bump) all chars in string s to uppercase } 
VAR 

i : INTEGER; {String index > 

BEGIN 

FOR i : = 1 to Length ( s ) DO 
SC i 3 := UpCa.se ( sCi] ) 

END; i BumpStrUp > 

BEGIN {Unit ini tial i 2 at on > 

END. { UNIT Mi sc pack } 



(* Reprinted with some modification from Mastering Turbo Pascal Files 
By Tom Swan, by permission of Howard W. Sams and Company. Copyright 
19B7 Howard W. Sams and Company. All rights reserved. 
***********************-*■*** End Swan Excerpt ***■#■*-**■*-******■*****+■*■) 
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APPENDIX U 

SOURCE LISTING FOR UNIT PARSER 



\ 

J 

(*******************************************************************) 



(**** PARSER. PAS ****) 
(**** This is the unit that executes all commands for the ****) 
(**** Slave computer. ****) 
(**•** ***•*) 
(**** ***•*) 
(**** References: Hall, W.V., "When Turbo Isn't Enough," in #***) 
(**** Shammas, N.C., The Turbo Pascal Toolbook, ****) 
(**** pp. 145 - 146, II S<T Publishing, Inc., 1986.****) 
(****■ ***•*) 
(**** Mefforb, M.J., "Running Programs Painlessly ****) 
(**** PC Magazine, v. 7, 16 February, 1988. ****) 
(**** ***•*) 
(**** Developed by Nelson Ard ****) 
(**•** ***•*) 
(**** Last modification Sep 89 ****) 



(****** **********+*******+***** ************************************** ) 



UNIT Parser; 



t 8 Nov 88 } 

•C 5 June 89 - changed sets to constants} 

C 9 June 89 -added 



•C 19 Jun 89 
•C 20 Jun 89 
•C 12 Jul 89 

•C 4 Aug 89 



argv, argc functions 

adjusted parsename to correctly parse long filenames} 

- added buf _to_string , string_to_buf } 

- added Resol ve_command to prepare for EXEC call } 

- moved Match_command , internal command constructs to spawn 
added response construct to parser_main } 

- deleted Intrinsic from USES statement } 



INTERFACE 



USES MISCPACK, ErrorCod, 



Spawn, Dos; 



PROCEDURE Parser main 



Command_s 
VAR Response 
VAR Restype 
VAR Error_msg 
VAR Err type 
VAR. Prompt 



stringl28; 
String 128: 
Response_type; 
Stri ng 128; 
Response_type; 
Stringl28 ) ; 
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\ This procedure parses an MS-DOS command and executes it locally 

Input: Command_s is the command to be executed with path 

Output: Response is the output of the program 

Restype is the type of Response (string, file, nothing) 

Error_Msg is the error output of the program 

Errtype is the type of Error_Msg (string, file, nothing) 

Prompt is a simulated command line prompt after program 

execution 



IMPLEMENTATION 



TYPE 

argtype = ( opt, other ); 

arg_rec = RECORD 

arg_type : argtype; 

arg_length : byte; 

arg_index : byte; 

END; 

argarray = ARRAY CO..?] OF arg_rec; 
SETOFCHAR = set of char; 



ccmmand_buf f er = ARRAY Cl.. 12] OF char; 



CONST 

SPACE = ' '; 

TAB = •-•H; 

COMMA = ' , ' ; 

SEMICOLON = 
COLON = ' : ' ; 

PLUS = ' + ' ; 

MINUS = 

SLASH = ' / ' ; 

BACKSLASH = 'V; 

DOT = ' . ' ; 

STAR = 

NUL = A @; 

TILDE = 



Path_or_dr i ve : SETOFCHAR 
Node_or_dr i ve : SETOFCHAR 
arg_separator : SETOFCHAR 
whitespace : SETOFCHAR 
option : SETOFCHAR 
Null String : PathString = 



= C COLON, BACKSLASH ]; 

= C COLON ]; 

= C SPACE, COMMA, SEMICOLON, PLUS, MINUS ]; 
= C SPACE, TAB ]; 

= C SLASH ]; 

/ y a 
5 
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VAR 

arg_array : argarray; 
ar g_cou.nt : byte; 

Command_line : PathString; 
index : byte ; 
count : byte; 

(* This variable for use ** only ** by argvO *) 
arg_string : stringl28; 

PROCEDURE Parse ( Command : string 128 ) ; 

{ Used by Parser_Main to count and isolate the command line 
parameters. This procedure loads argc and argv } 

VAR 

index : byte; 



BEGIN 

arg_string := Command; leave a copy of the command} 

FOR arg_count := 0 TO 9 DO 
WITH Arg_array C arg_count 3 DO BEGIN 
arg_type := OTHER; 
arg_ length := 0; 
arg_index := 0; 

END; " 

index := i; 
arg_count := 0; 

REPEAT 

WHILE (index < Length ( Command ) ) 

AND ( Char ( Command C index 3) IN whitespace ) DO 

INC (index ) ; 

WITH arg_array C arg_count 3 DO BEGIN 
IF index <= Length ( Command ) THEN 
CASE Command C index 3 OF 

TAB, SPACE : BEGIN 

END; 

SLASH : IF index < length ( Command ) THEN 

BEGIN 

( * I NC ( index );*) 
arg_length := 2; (*i*) 

arg_index := index; 
arg_type := opt; 

INC ( index ); 

INC ( index ); 

INC ( arg_count ) ; 

END; 
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ELSE BEGIN 

arg_index := index; 
arg_type := other; 
arg_length := 1; 

INC ( index ); 

WHILE ( index <= Length ( Command ) ) AND 

NOT ( Char (Command C index ]) IN whitespace ) 
AND NOT ( Char (Command C index I) IN option ) 
DO BEGIN 

INC ( arg_l ength ) ; 

INC ( index ); 

END; 

INC ( arg_count ) ; 

END; {BEGIN} 

END {CASE} 

END { WITH > 

UNTIL index >= length ( Command ); 

END; {Parse} 

FUNCTION ar gc : byte; 

{ Returns a count oi the number o-f arguements on the command 
line } 



BEGIN 

argc := arg_count; 
END; " 



FUNCTION ergv ( arg_count : byte ) : string 128; 



{ Returns the arg_count'th arguement -from the command 
line } 



VAR 

index : byte; 
temp : string 128; 

BEGIN 

temp : = Nu.1 1 str i ng ; 

WITH arg_array [ arg_count ] DO 

FOR index := arg_index TO (arg_index + arg_length - 1 ) DO 
temp := temp + arg_string [ index ]; 
argv := temp; 

END; 
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(**************************** Start Hall Excerpt ********************) 



PROCEDURE F'arseName ( inName 



PathString; 



VAR nameSpec 
VAR ex tn Spec 
VAR fylespec 
VAR pathSpec 
VAR driveSpec 
VAR nodeSpec 



: NameString; 

: ExtnString; 

: Filestring; 

: PathString; 

: DriveString; 
: NameString > ; 



( Breaks down a filespec intG its component parts -for Parser_Main, 
Resolve command. From the Hall reference. } 



VAR 

Count : Byte; 

DotF'os : Byte; 

StarPos : Byte; 
index : integer; 

■filespec : pathstring; 

BEGIN 

Count := Length ( InName); 

•C$V-> 

Mi scF'ack. BumpStrUp ( InName ); 

•C$V+> 

IF ( InNameCCount 3 IN F‘ath_or_dri ve) THEN 
•C do nothing > 

ELSE BEGIN 
REPEAT 

Count := PRED (Count); 

UNTIL (Count = 0) OR (InNameCCount] IN Path_or_dri ve) ; 
END; 



(Isolate Filename! 

( Copy (Source, Startpos , No of Char) } 

fileSpec := Copy (InName, Count + 1, LENGTH (InName) - Count); 
DELETE (InName, Count + 1, LENGTH ( InName) - Count); (Chop tail off} 
IF (Count > 2) THEN 

IF (I nName C Count 3 < > * : * ) THEN 
REPEAT 

Count := PRED (Count); 

UNTIL (InNameCCount] IN Node_or_Dri ve) OR (Count = 0); 



(* The library F'arseName appears in The Turbo Pascal Tool book by Namir 
C. Shammas (ed.) and has been reprinted with the permission of the 
publisher M ?■: T Books 1-800-533-4372. Minor modifications by Nelson 
Ard . 

************************* Continue Hall Excerpt *********************) 
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(************************ Continue Hall Excerpt *********************) 



CASE Count OF 

0 : pathSpec := InName; 

1 : C Syntax Error }; 

ELSE BEGIN 

pathSpec := Copy (InName, Count + 1, LENGTH (InName) - Count); 
{Chop tail off] 

DELETE (InName, Count + 1, LENGTH ( InName) - Count); 

CASE InNameCPRED (Count ) 3 OF 

COLON ; BEGIN 

{Chop tail off} 

DELETE (InName, Length (InName) - 1, 2); 
nodeSpec := InName; 

END; 

C*. ■ ■ J 

' A ' . . ' Z ' : BEGIN 

driveSpec ; = InNameCPRED (Count ) ] + 

DELETE (InName, Count - 1, 2); {Chop tail off} 

Count : = Length (InName) ; 

IF (Count > 2) AND (F*QS('::', InName) = Count - 1) 
THEN IF LENGTH (InName) > 10 THEN 

nodeSpec := Copy (InName, 1, S) 

ELSE nodeSpec := Copy (InName, 1, 

LENGTH (InName) - 2) 

ELSE { Syntax error in node part } 

IF Count <> 0 THEN ; 

END; 

ELSE C Syntax Error, drive not alpha character }; 



END; {Case} 

END; 

END: {Case} 

{Adjust filename} 

Dot Poe := POS ( DOT, fileSpec): 

IF Dot Poe <> 0 THEN BEGIN 

extnSpec := COPY (f i 1 eSpec , DotPos + 1, 3); 

(* The library ParseName appears in The Turbo Pascal Tool book by Namir 
C. Shammas (ed.) and has been reprinted with the permission of the 
publisher M S< T Books 1-800-533-4372. Minor modi f i cati ons by Nelson 
Ard . 

**************************** Continue Hall Excerpt *********■*+*♦*+*+**■*•*■) 
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(************************ Continue Hall Excerpt *********************) 



DELETE ( -f i 1 eSpec , DotPos, ( LENGTH ( -f i 1 eSpec ) -DotPos)+l); 
END 
ELSE 

extnSpec := 

IF LENGTH (fil eSpec) > 8 THEN 

DELETE (fil eSpec, 9, LENGTH (-fil eSpec ) -8) ; 

StarPos := POS< STAR, fileSpec ); 

IF StarPos <> 0 THEN BEGIN 

DELETE (-fil eSpec, StarPos, (LENGTHS i leSpec)-StarPos) +1 ) ; 
FOR Count := LENGTH (f i 1 eSpec ) TO 7 DO 
fileSpec:= -fil eSpec + 

END; 

Namespec := filespec; 

StarPos := F'OS (STAR, extnSpec): 

IF StarPos <> 0 THEN BEGIN 

DELETE (extnSpec , StarPos, (LENGTH (-f i 1 eSpec ) -StarPos) +1 ) ; 

FOR Count := LENGTH (extnSpec ) TO 2 DO 
extnSpec := extnSpec + '?'; 

END; 

IF NOT ( extnspec = Null string ) THEN 
fyl espec := Namespec + DOT + extnspec 
ELSE fyl espec ;= Namespec; 

END; 



(* The library ParseName appears in The Turbo Pascal Tool book by Namir 
C. Shammas (eo. ) and has been reprinted with the permission of the 
publisher M h. T Books 1-800-533-4372. Minor modifications by Nelson 
Ard . 

ft**************************** End Hall Excerpt *********************) 

TYPE C used by Resoi ve_Command and Parser_Main 3 

Type_of_file = (BAT_File, C0M_File, EXE_File, Directoree, Other_File, 

Pathname ) ; 

VAR i initialized by Parser_Main for resol ve_command 3- 
pathSpec : PathString; 
fileSpec : fileString; 
nodeSpez , 

nameSpec : NameString; 
extnSpec : ExtnString; 
driveSpec : DriveString; 
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FUNCTION Resol ve_command ( VAR arguement : PathString ) : Type_of_file 

•I The MS-DOS Exec function needs a complete file specification (drive, 
path and filename including extension to run a child process. 

Resol ve_command examines the first arguement in an MS-DOS command 
line, arguement, and fills out the complete path information if 
needed, then uses this path to conduct a file search for the 
exact filename. The completed file specification is returned to 
the caller along with the type (COM, EXE, BAT, or path) for 
execution or directory change action. The building blocks 
needed to construct the complete file speci f i cati on have been 
placed in the variable immediately above by F'arseName. The 
determi ni sti c algorithm for detecting the correct executable file is 
from (Mefford, 1988, p. 327). 

Input; arguement, the command file to be searched for 

Output: arguement, adjusted to specify a complete path 

The function returns the type of file as an enumerated type 



VAR 

Dir Info : SearchRec; 

resol ved , 

relati ve_directory : boolean; 

Dir : PathString; 

BEGIN 

resolved : = FALSE; 

Get Dir ( 0, Dir ); 

•C lack of a leading backslash could mean a simple 
request to log to another drive > 

rei ati ve_di rectory := ( pathSpec [13 <> BACKSLASH ); 

IF rel ati ve_di rectory AND (( Dir [13 = driveSpec [13 ) 

OR (Drivespec = BLANK )) THEN 
•C Fill out the complete path specification ]• 
arguement := Dir + BACKSLASH + arguement; 

IF extnSpec = Null String THEN BEGIN 

•C The command does not have a file extension, could be a 
directory. Search the now complete path for a file 
with the same name, in the reverse order that the 
MS-DOS command processor would. Add the appropriate 
extension to arguement if matched. End up with the 
file with precedence to execute. } 
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FindFirst ( arguement + '.BAT', Archive, Dirln-fo); 

WHILE DosError = 0 DO 
BEGIN 

IF Dir In-fo. attr AND Archive <> 0 THEN BEGIN 
arguement := arguement + '.BAT'; 
resol ve_command := BAT_File; 
resolved := TRUE; 

END; 

FindNext (Dirln-fo); 

END; 

FindFirst ( arguement + '.COM', Archive, Dirln-fo); 

WHILE DosError = 0 DO 
BEGIN 

IF Di r In-fo. attr AND Archive <> 0 THEN BEGIN 
arguement := arguement + '.COM'; 
resol ve_command := COM_File; 
resolved := TRUE; 

END; 

FindNext (Dirln-fo); 

END; 

FindFirst ( arguement + '.EXE', Archive, Dirln-fo); 

WHILE DosError = 0 DO 
BEGIN 

IF Dir In-fo. attr AND Archive <> 0 THEN BEGIN 
arguement := arguement + '.EXE'; 
resol ve_command := EXE_File; 
resolved := TRUE; 

END; 

FindNext (Dirln-fo); 

END; 

END 

ELSE BEGIN -C extension not NULL, ready to execute > 

IF (extnSpec = 'COM') THEN BEGIN 
Resol ve_command := C0M_File; 
resolved := TRUE; 

END 

ELSE IF (extnSpec = 'BAT') THEN BEGIN 
Resol ve_command := BAT_File; 
resolved := TRUE; 

END 

ELSE IF (extnSpec = 'EXE') THEN BEGIN 
Resol ve_command := EX.E_Fi!e; 
resolved ;= TRUE; 

END 

ELSE BEGIN 

Resol ve_command := Other_-file; -C a path speci -f i cati on ? } 
resolved ;= TRUE; 

END 

END; 
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(* changed this *> 

IF NOT resolved THEN BEGIN 

FindFirst ( arguement , Directory, Dirlnfo); 

WHILE DosError = 0 DO 
BEGIN 

IF Di r Inf o. attr AND Directory <> 0 THEN BEGIN 
Resol ve_command := Directoree; 
resolved := TRUE; 

END; 

Fi ndNext (Dir Info); 

END; 

END; 

IF NOT resolved THEN Resol ve_command := Pathname; 
END; {Resol ve_Command> 



(* 



*) 



PROCEDURE Parser main 



Command_s 
VAR Response 
VAR Restype 
VAR Error_msg 
VAR Err type 
VAR Prompt 



stringl28; 
Stringl2S; 
Response_type; 
Str ingl28; 
Response_type; 
String 128 ); 



•C This procedure parses a command line similar in form to an 
MS-DOS command, and executes it if possible on the local 
machine 

Input: Command_s is the command to be executed with path 

Output: Response is the output of the program 

Restype is the type of Response (string, file, nothing) 
Error_Msg is the error output of the program 
Errtype is the type of Error_Msq (string, file, nothing) 
Prompt is a simulated command line prompt after program 
executi on 



j 

CONST NullString : String = 

Current_Dri ve : byte = 0; C used with ChDir } 



VAR 

Command : Internal _Command; 
arg_count : byte; 
index : byte; 
cmdi i ne , 



Current_Dir , 

program_name : PathString; 

File_type : Type_of _Fi 1 e; 

Batch : boolean; 

PROCEDURE Ini t_parse; 

■C Break the command line into parameters, store the components 
of the first arguement (normally the command itself) } 

VAR 

index : byte; 

BEBIN 

Parse (command_s) ; C load argc, argv } 

pathspec := argv(O); 

fiiespec := Null string; 

extnspec := Null string; 

drivespec := Nullstring; {Blank; !!} 

nodespec := Nullstring; 

•C now break the first arguement into components > 

F’arsename ( pathspec, NameSpec, extnSpec, fileSpec, 
pathspec, drivespec, nodeSpec ); 

END; { Ini t_Parse > 

BEGIN 

Ini t_F'arse; 

IF ( Length ( Drivespec ) = 2 ) AND ( argc = 1 ) 

•C Drive change only > 

THEN BEGIN 

command_s := 'CD ' + comma.nd_s; 

Init_F'arse; { redo with added command } 

END; 

IF Match_command ( FileSpec, Command ) THEN BEGIN 
{ command can be handled by * this * program } 

IF argc >= 1 THEN BEGIN 

cmdiine := Null string; { no command tail } 

FOR index := 1 TO (argc - 1 ) DO 

Cmdiine := Cmdiine + argv(index) + SPACE; 

{ trim trailing space } 

IF Cmdiine C Length ( Cmdiine ) 3 = SPACE THEN 

Cmdiine := Copy ( Cmdiine, 1, Length ( Cmdiine ) - 1 ); 



END; 

{ process as a. built in function > 

Process_intrinsic_command ( Command, cmdiine, Response, Restype, 

Error_msg, Errtype, Prompt ); 

END 
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ELSE BEGIN C prepare -for a child process } 
program_na(ne := argv(O); 

File_Type := Resol ve_command ( F'rogram_Name ); 

CASE Fi le_Type OF 
C0M_Fi 1 e . 

EXE_Fi 1 e , 

BAT_Fi 1 e : BEGIN 

Batch := ( File_Type = BAT_File ); 
cmdline := Nullstring; 

IF argc > 1 THEN FOR index := 1 TO argc - 1 DO 
Cmdline := Cmdline + SPACE + argv (index); 

Run_Local ( F‘rogram_name , cmdline, Response, Restype, 
Error_msg, Errtype, Prompt, Batch ); 

end ; 

ELSE BEGIN { command did not parse, noti-fy Master } 

Errtype := nothing; 

System. GetDi r ( Current_Dri ve , Prompt ); 

Prompt : = Prompt + *>'; 

Restype ;= strng; 

Response := 'Slave: syntax error'; 

END; {ELSE} 

END; {CASE} 

END; 

END; {Parser main} 

BEGIN 



END. 
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APPENDIX V 



SOURCE LISTING FOR UNIT REDIRECT 



(*******************************************************************) 



(**•** 
(**•** 
(•**** 
(**** 
(*•*** 
(**** 
(**■•*■* 
(**** 
(•**** 
(**■** 
( **** 
( **** 
(■**** 
(**-**• 
(***•* 
(*■*** 



REDIRECT. PAS 

This is the unit that accomplishes redirection of the 
Standard Input and Output file handles normally assigned 
by the MS-DOS command processor to files to capture the 
output of a program running under the Slave computer 
control. Variables are loaded with the file names for 
later reference. 

Reference: 



G. , "Parents, Children, 
and Piping with DOS Functions 
45H and 46H, Programmer's Journal, Nov/Dec 



Def enbaugh , 
Redirection , 



1 986 , 



pp. 22-21 



Developed by Nelson Ard 
Last modification Sep 89 



•****) 

•****) 

•****) 

***•*) 

**•**) 

*•***) 

•****) 

**•**) 

*•***) 

•****) 

**•**) 

****) 

****-) 

***•*) 

•****) 

***■*) 



( *******************************************************************) 



UNIT Redirect; 



(* Modification history 



22 Jul 89 



4 Aug 89 



Chained ErrorNum variables through Close_Fi 1 e_Handle 



cal 1 

Placed two string 
external units to 
files while using 
Absorbed FileDecl 



variables in interface section for 
find filespec for the response, error 
standard TP file functions 
UNIT as include file *) 



INTERFACE 

USES Dos, Crt, Mi sc pack; 



PROCEDURE Restore_CRT_Assi gnments; 



•C Optional procedure to replace the standard files Input and Output 
with textfile drivers in the CRT unit for speed. In turns out that 
the CRT Unit does this on initialisation, but disallows I/O 
redirection by doing so 

(Turbo Pascal Owner's Handbook, 1987, p. 377) > 
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PROCEDURE Ini t_Redi rect_Uni t ; 

{ Required to reset I/O to the MS-DOS standard file handles, which 
may then be redirected 3- 

FUNCTION Redi rect_Std_Input : boolean; 

{ Redirect program input from a predefined file } 

FUNCTION Redirect_Std_Output : boolean; 

{ Redirect program output to a predefined file 3- 

FUNCTION Redi rect_Std_Error : boolean; 

C Redirect program error output to a predefined file 3- 

FUNCTION Redi rect_Al 1 _Outpu.t : boolean; 

{ Redirect program output and error output to a predefined file 3- 
FUNCTION Restore_Std_Input : boolean; 

{ Restore program input to the standard file handle 3- 
FUNCTION Restore_Std_Output : boolean; 

{ Restore program output to the standard file handle 3- 
FUNCTION Restore_Std_Error : boolean; 

•C Restore program error output to the standard file handle } 

FUNCTION Restore_Al 1 _Qutput : boolean; 

{ Restore program output and error output to the standard file handle 
VAR 

Response_Fi 1 e , 

Errors_File : PathString; 

IMPLEMENTATION 



CONST {These are the predefined standard and redirected files} 



{MS- 


-DOS predef 


i nes 


Stdln 


word = 0; 


(* 


StdOut 


word = 1; 


(* 


StdErr 


word = 2; 


(* 


St d Alim 


word = 3; 


( * 


StdPrn 


word = 4; 


(* 


{Redirection takes 



es me ton owing nanaiesj- 
(* File handle for Standard Input *) 
(* File handle for Standard Output *) 
(* File handle for Standard Error *) 
File handle for Standard Auxiliary 
File handle for Standard Printer * 
place from/to these files! 



*) 
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Std_Output_Fi 1 e_Temp : Stnng[21] = 'C:\Scratch\DTPT.TMP'; 
Std_Inpat_Fi 1 e_Temp : StringC21] = 'C: \Scratch\INPT. TMP ' ; 
Std_Error_Fi 1 e_Temp : StringC21] = 'C: \Scratch\Err . TMP ' ; 



CONST Make_Dir 


Byte = $39; 


Remove_Di r 


Byte = $3 A; 


Change_Di r 


Byte = $3B ; 


Create_Handl e 


Byte = $3C; 


Open_Handl e 


Byte = $3D; 


Cl ose_Handl e 


Byte = $3E; 


Read_Handl e 


Byte = $3F; 


Wri te_Handl e 


Byte = $40; 


Del ete_Entry 


Byte = $41; 


Move_Ptr 


Byte = $42; 


Change_Mode 


Byte = $43; 


Du.p_Handl e 


Byte = $45; 


FDup_Handl e 


Byte = $46; 


Get_Di r 


Byte = $47; 


Fi nd_Fi rst_Fi 1 e 


Byte = $4E; 


Fi nd_Ne>:t_Fi 1 e 


Byte = $4F; 



VAR 


^ - 


Input_Fi 1 e , 




Error_Fi 1 e , 




Output_Rile : Text; 




Saved_Std_In , 




Saved_Std_Ou.t , 




Saved_Std_Err , 




Redir In , 




Redi rOut , 




RedirErr : word; 





PROCEDURE Ini t_Redi rect_Uni t ; 

•[ Optional procedure to replace the standard -files Input and Ou. 
with text-file drivers in the CRT unit for speed. In turns ou 
the CRT Unit does this on initialization, but disallows I/O 
redirection by doing so 

(Turbo Pascal Owner's Handbook, 1987, p. 377) > 



BEG I N 
As si gn 
Reset 
Assi gn 
Rewr i te 
END; 



( Input, " ); 

( Input ) ; 

( Output, ' ' ); 
( Output ) ; 



188 



r+* rt 



FUNCTION Dupl 1 cate_Handle ( Handle : word; 

VAR ErrorNum : word ) : word; 

{ Input: Handle, a tile handle to an open -file 

Output: The -function returns a second -file handle 

■for the same -file. Both handles use the same 
-file pointer 

ErrorNum is returned by MS-DOS: 

$04 : No -free handles le-ft 

$06 : Handle is not currently open 



VAR Regs : Registers; 



BEGIN 

Regs. AH := Dup_Handie; 

Regs.BX := Handle; 

Intr ($21 , Regs); 

IF ( Regs. Flags AND FCarry ) = 0 THEN BEGIN 
Dupl i cate_Handle := Regs. AX 
END 

ELSE BEGIN 

ErrorNum := ErrorNum + Regs. AX; 

Dupl icate_Handle := $FF 
END 
END; 



FUNCTION Cl ose_Fi 1 e_Handl e ( Handle : word; 

VAR ErrorNum : word ) : Boolean; 

•C Input; Handle, a -file handle to an open -file 

Output: The -function returns TRUE if the operation was successful 
and the file closed. All internal buffers are flushed. 

If FALSE, an invalid handle was specified. 

ErrorNum is returned by MS-DOS: 

$06 : Handle is not currently open 



VAR Regs : Registers; 

BEGIN 

Regs. AH := Cl ose_Handl e; 

Regs.AL := $0; 

Regs.BX := Handle; 

Intr ($21, Regs); 

IF ( Regs. Flags AND FCarry ) = 0 THEN BEGIN 
Close_Fi le_Handle := TRUE 
END 
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ELSE BEGIN 

ErrorNum := ErrorNum + Regs. AX; 

Cl ose_Fi 1 e_Handl e := FALSE; 

END 

END; 

PROCEDURE Redi rect_Handl e ( Handle, Red_Handle : word; 

VAR ErrorNum : word ) ; 

•C Input: Handle, a file handle to an open file 

Red_Handle a file handle to a second file 
Output: The file referenced by Red_Handle is closed 

Red_Handle now uses the same file pointer as 
Handle, and either may be used to acces the file 
ErrorNum is returned by MS-DOS: 
tO 4 : No free handles left 
t06 : Handle is not currently open 

J 

VAR Regs : Registers; 

BEGIN 

Regs. AH := FDup_Handle; 

Regs.BX := Handle; 

Regs. CX := Red_Handie; 

Intr(t21, Regs); 

IF ( Regs. Flags AND FCarry ) = 0 THEN BEGIN 
END 

ELSE BEGIN 

ErrorNum := ErrorNum + Regs. AX; 

END 

END; 

FUNCTION Redi rect_Std_Output : boolean; 

•C Redirect program output to a predefined file 

On entry, StdOut refers to the standard output 
device driver. A copy of StdOut is saved, and 
StdOut is redirected to our predefined output file 

The function returns TRUE if successful 



VAR ErrorNum : word; 

BEGIN 

ErrorNum := 0; 

Assign ( Output_Fi 1 e , Std_Output_Fi 1 e_Temp ); 
Rewrite ( QutPut_File ); 
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Saved_Std_Out := Dupl icate_Handle ( StdOut, ErrorNum ); 
Redirect_Handle ( Te::tRec( Output_File ). Handle, StdDut, 
Redirect_Std_Output := ( ErrorNum =0 ); 

END; 

FUNCTION Restore_Std_Output : boolean; 

{ Restore program output to the standard -file handle 

On entry, StdOut refers to our predefined file 
StdOut is rereferenced to the standard output 
device driver 

The function returns TRUE if successful 



VAR ErrorNum : word; 

BEGIN 

ErrorNum := 0; 

Redirect_Handle ( Saved_Std_0ut , StdOut, ErrorNum ); 
IF Close_Fi le_Handle ( Saved_Std_Out , ErrorNum ) THEN 
{$!-} 

Close ( Output_File ); 

IF I0Resu.lt = 0 THEN BEGIN 

Response_Fi le := Std_Output_Fi le_Temp; 
Restore_Std_Output := ( ErrorNum =0 ); 

END 

ELSE BEGIN 

Response_Fi 1 e : = NuliStr; 

Restore_Std_Outpu.t := FALSE: 

END; 

•C$ 1+3- 
END; 



FUNCTION Redi rect_Std_ Input : boolean; 

•C Redirect program input from a predefined file 

On entry, Stdln refers to the standard input 
device driver. A copy of Stdln is saved, and 
Stdln is redirected to our predefined input file 

The function returns TRUE if successful 

\ 

VAR ErrorNum : word; 

BEGIN 

ErrorNum, 0; 

Assign ( Input_File, Std_Input_Fi le_Temp ); 



ErrorNum ) 



191 



Reset ( InF'ut_File ); 

Sa.ved_Std_In := Dupl i cate_Handl e ( Stdln, ErrorNum ); 

Redi rect_Handl e ( TextRec< Input_File ). Handle, Stdln, ErrorNum ) 
Redi rect_Std_ Input := ( ErrorNum =0 ); 

END; 

FUNCTION Restore_Std_Input : boolean; 

C Restore program input to the standard -file handle 

On entry, Stdln refers to our predefined file 
Stdln is rereferenced to the input 
device driver 

The function returns TRUE if successful 



VAR ErrorNum : word: 

BEGIN 

ErrorNum := 0; 

Redi rect_Handl e ( 3aved_Std_In , Stdln, ErrorNum ); 

•C$ I -} 

Close ( Input_File ); 

IF Cl ose_Fi 1 e_Handl e ( Saved_Std_In , ErrorNum ) THEN; 

Rest ore_Std_ Input := ( ErrorNum = 0 ) AND (I0Resu.lt <> 0) ; 

•CT- 1+3- 
END ; 



FUNCTION Redi rect_Std_Error : boolean; 

C Redirect program error output to a predefined file 

On entry, StdErr refers to the standard output 
device driver. A copy of StdErr is saved, and 
StdErr is redirected to our predefined error file 
Overcomes inability to redirect from the MS-DOS 
command line 

The function returns TRUE if successful 



VAR ErrorNum : word; 



BEGIN 

ErrorNum : = 0; 

Assign ( Error_File, Std_Error_Fi 1 e_Temp ); 

Rewrite ( Error_File ); 

Seved_Std_Err := Dupl ica.te_Handl e ( StdErr, ErrorNum ); 



Redi rect_Handl e ( TextRecC Error_File ). Handle, StdErr , ErrorNum ); 
Redi rect_Std_Error := ( ErrorNum = 0 ); 

END; 

FUNCTION Restore_Std_Error ; boolean; 

{ Restore program error output to the standard file handle 

On entry, StdErr refers to our predefined file 
StdErr is rereferenced to the output 
device driver 

The function returns TRUE if successful 



VAR ErrorNum : word; 

BEGIN 

ErrorNum := 0; 

Redi rect_Handl e ( Saved_Std_Err , StdErr, ErrorNum ); 
•C$1-} 

Close ( Error_File ); 

IF Cl ose_Fi 1 e_Handl e ( Sa.ved_Std_Err , ErrorNum ) THEN; 
IF IQResul t = 0 THEN BEGIN 

Errors_File := Std_Error_Fi le_Temp; 

Restore_Std_Error := ( ErrorNum = 0 ) ; 

END 

ELSE BEGIN 

Errors_File := NullStr; 

Restore_Std_Error := FALSE; 

END; 

■C$1 +} 



END; 



FUNCTION Redirect_Al l_0u.tput : boolean; 

■C Redirect program output and error output to a predefined file 

On entry, StdOut refers to the standard output 
device driver. A copy of StdOut is saved, and 
StdOut is redirected to our predefined output file 

On entry, StdErr refers to the standard output 
device driver. A copy of StdErr is saved, and 
StdErr is redirected to our predefined error file 
Overcomes inability to redirect from the MS-DOS 
command line 

The -function returns TRUE if successful 
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•t 

J 



VAR ErrorNum : word; 

BEGIN 

ErrorNum := 0; 

{$!-} 

Assign ( 0L(tput_Fi 1 e , Std_Output_Fi 1 e_Temp ); 

Rewrite ( DutF‘ut_File ); 

Saved_Std_0ut := Dupl i cate_Handl e ( StdOut, ErrorNum ); 
Saved_Std_Err := Dupl icate_Handle ( StdErr, ErrorNum ); 
Redi rect_Handl e ( Te;:tRec( Output_File ). Handle, StdOut, 
Redi rect_Handl e ( Te>:tRec( Output_File ). Handle, StdErr, 
Redi rect_Al l_0utput := ( ErrorNum = 0 ) AND (IOResult <> 
{$!+} 

END; 

FUNCTION Restore_Al 1 _Output : boolean; 

•C Restore program output and error output to the standard 

On entry, StdOut refers to our predefined file 
StdOut is rereferenced to the standard output 
device driver 



On entry, StdErr refers to our predefined file 
StdErr is rereferenced to the output 
device driver 



The function returns TRUE if successful 



VAR 

ErrorNum : word; 

BEGIN 

ErrorNum := 0; 

Redi rect_Handl e ( Saved_Std_0ut , StdOut, ErrorNum ); 

IF Cl ose_Fi 1 e_Handl e ( Saved_Std_0ut , ErrorNum ) THEN; 
Redi rect_Handl e ( Saved_Std_Err , StdErr, ErrorNum ); 

IF Close_Fi le_Handle ( Saved_Std_Err , ErrorNum ) THEN; 
•C$1 -]• 

Close ( Output_File ); 

IF IOResult = 0 THEN BEGIN 

Response_Fi 1 e := Std_0utput_Fi le_Temp; 

Restore_Al 1 _0utput := ( ErrorNum =0 ); 

END 

ELSE BEGIN 

Response_Fi le : = NullStr; 

Restore_Al 1 _0utput := FALSE; 



ErrorNum ) 
ErrorNum ) 
0 ) ; 



file handle 
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END; 

•C$1 +} 

END; 

PROCEDURE Restore_CRT_Assi gnments; 

C Optional procedure to replace the standard -files Input and Output 
with text-file drivers in the CRT unit for speed. In turns out that 
the CRT Unit does this on initialization, but disallows I/O 
redirection by doing so 

(Turbo Pascal Owner's Handbook, 1937, p. 377) 



*V 

J 

BEGIN 

AssignCRT ( Input ); 

Reset ( Input ) ; 

AssignCRT ( Output ); 

Rewrite ( Output ); 

END; 

BEGIN (* no initialization required *) 
END. 
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APPENDIX W 



SOURCE LISTING FOR UNIT SPAWN 



1 

J 

(*******************************************************************) 



(**** SPAWN. F'AS ***•*) 
(*•*** This is the unit that executes child processes under **■**) 
(**-** MS-DOS -for the Slave computer. Included is a -function ***•*) 
(**** to detect MS-DOS commands to be handled by the ***•*) 
(**** program rather than by a. spawned copy of Command.com. *•***) 
(**•** The function is placed here to prevent circular unit ***•*) 
(**•** dependencies while restricting visibility to unrelated ***•*) 
(**-** units. •****) 
(•**** ***■*) 
(*+** Reference: Mefford, M.J., "Running Programs Painlessly **•**) 
(*-*** PC Magazine, v. 7, 16 February, 1988. #•***) 
(•**** ***•*) 
(***-* Developed by Nelson Ard ***#•) 
(*•*** **•**) 
(***■* Last modification Sep 89 ****) 



(*******************************************************************) 
(* Modification history 

8 Sep 89 - added PROMPT to the list of internal commands 

24 Mar 90 - deleted Fi nd_Envi ronment (duplicated in Unit Support 

*) 

UNIT Spawn; 

INTERFACE 

uses Datacom, Dos, Crt, Redirect, Support, ErrorCod, Miscpack; 



TYPE 

Internal .Command = (CD, CHDIR, COPI, DEL, DIR, ERASE, EQUIP, LS, MD, 

MKDIR, PROMT, RD, REN, RENAME, RMDIR >; 



CONST 

Command.Name : Array C Internal.Command] OF String[6] = 

('CD', 'CHDIR', 'COPY', 'DEL', 'DIR', 

'ERASE', 'EQUIP', 'LS', 'MD', 'MKDIR', 'PROMPT', 
'RD', 'REN', 'RENAME', 'RMDIR' ); 

Com.Port : String C61 = 'CC0M13'; 
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VAR 

Redirection ; boolean; { set by the caller in the main program to 

•force all command program output to file 
for remote display > 

FUNCTION Match_Command ( VAR FileSpec : FileString; 

VAR Command : Internal _Command ) : boolean 

{ Hatches the command in FileSpec against the above list of commands 
processed internally by this program. 

Input: FileSpec is the command/file name 

Output: FileSpec is adjusted to contain the complete path, if any 
Command is an enumerated type for internal commands 
The function returns true if a command is matched 



Procedure Run_Lc«cal ( ProgramName, Cmoline : string; 

VAR Response : string 128; 

VAR Restype : Response_type; 

VAR Error_msg : stringl28; 

VAR Errtype : Response_type; 

VAR Prompt : string 128; 

Batch : boolean ); 

{ Used to spawn a child process, program name in Command, 

parameters in Command_Tai 1 . Program output, error responses, 
and a follow on command line prompt as it would appear from a 
local command line processor are returned to the calling 
program. 



Input: ProgramName is the command to be executed with path 

Cmdline is the command tail for ProgramName 
Batch lets Run_Local know a batch file is to be executed 

Output: Response is the output of the program 

Restype is the type of Response (string, file, nothing) 

Error_Msg is the error output of the program 

Errtype is the type of Error_Hsg (string, file, nothing) 

Prompt is a simulated command line prompt after program 

execution 



J 
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PROCEDURE Process_intrinsic_command ( Command : Internal_command; 

Command_tail : Stringl28; 

VAR Response : Stringl28; 

VAR Restype : Response_type; 

VAR Error_msg : String 128; 

VAR Errtype : Response_type; 

VAR Prompt : Stringl28 ); 

•C Used to execute a command normally processed internally by 
command.com. The program name is -found in Command, 
parameters in Command_Tai 1 . Program output, error responses, 
and a -follow on command line prompt as it would appear -from a 
local command line processor are returned to the calling 
program. 

Input: Command is the command to be executed with path 

Command_Tail is the command tail -for Command 

Output: Response is the output o-f the program 

Restype is the type o-f Response (string, -file, nothing) 
Error_Msg is the error output o-f the program 
Errtype is the type of Error_Msg (string, file, nothing) 
Prompt is a simulated command line prompt after program 
executi on 



IMPLEMENTATION 



FUNCTION Match_Command ( VAR FileSpec : FileString; 

VAR Command : Internal _Command ) : boolean 

{ Matches the command in FileSpec against the above list of commands 
processed internally by this program. Returns true if a command 
is matched 



Input: FileSpec is the command/file name 

Output: FileSpec is adjusted to contain the complete path, if any 
Command is an enumerated type for internal commands 
The f unction returns true if a command is matched 



VAR 

Found : boolean; 

index : Internal _Command; 
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BEGIN 

Found := FALSE; 

FOR index := CD TO RMDIR DO 



IF ( Pos ( Command_Name[ index 3, FileSpec ) = 1 ) AND 

( Length ( Command NameC index ] ) = Length ( FileSpec )) THEN 
BEGIN 

Found := TRUE; 

Command := index; 

END; 

Match_Command := Found; 

END; 



Procedure Run Local 



ProgramName, Cmdline : string; 
VAR Response : stringl28; 

VAR Restype : Response_type; 

VAR Error_msg : stringl28; 

VAR Errtype : Response_type; 

VAR Prompt : string 128; 

Batch : boolean ); 



■C Used to spawn a child process, program name in Command, 

parameters in Command_Tai 1 . Program output, error responses, 
and a -follow on command line prompt as it would appear from a 
local command line processor are returned to the calling 
program. 



The use of a secondary copy of COMMAND. CON to run batch files is from 

(Mefford, 1988, p. 327). 

Input: ProgramName is the command to be executed with path 

Cmdline is the command tail for ProgramName 
Batch lets Run_Local know a batch file is to be executed 

Output: Response is the output of the program 

Restype is the type of Response (string, file, nothing) 

Error_Msg is the error output of the program 

Errtype is the type cf Error_Msg (string, file, nothing) 

Prompt is a simulated command line prompt after program 

execution 



begin 

CheckBreak := TRUE; 

IF Batch THEN BEGIN 

Cmdline := ' /c ' + programname + Cmdline; 

•C set up temporary command.com } 

ProgramName := Fi nd_Envi ronment ( 'COMSPEC'); 
END; 
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GetDir(0, Prompt); 

IF Redirection THEN BEGIN 
Ini t_Redirect_Uni t ; 

IF Redirect_All .Output THEN; 

END; 

Exec (Programname, Cmdline); 

IF Redirection THEN BEGIN 
IF Restore_Al 1 .Output THEN; 
Restore_CRT_Assignments; 

END; 

RS.Cleanup; 

RS_Restore ( Current_COM ) ; 

Restype := file_type; 

Response := Redirect. Response_-fi le; 
Errtype := strng; 

IF doserror <> 0 THEN BEGIN 

Error_Msg := Error_Code [ DosError D; 
END 

else Error_Msg := 

System. ChDir ( Prompt ); 

Prompt := Prompt + '>'; 

END; 



CONST 

SPACE : Char = ' 



PROCEDURE Process intrinsic command 



Command : Internal command; 



Command_tai 1 
VAR Response 
VAR Restype 
VAR Error_msg 
VAR Errtype 
VAR Prompt 



: Stringl23; 

: Stringl28; 

: Response.type 
: Stringl28; 

: Response_type 
: String 128 ); 



■C Used to execute a command normally processed internally by 
command.com. The program name is -found in Command, 
parameters in Command_Tai 1 . Program output, error responses, 
and a -follow on command line prompt as it would appear from a 
local command line processor are returned to the calling 
program. 

Input: Command is the command to be executed with path 

Command_Tail is the command tail for Command 

Output: Response is the output of the program 

Restype is the type of Response (string, file, nothing) 
Error_Msg is the error output of the program 
Errtype is the type of Error.Msg (string, file, nothing) 
Prompt is a simulated command line prompt after program 
execution. 3- 
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CONST Current_Dri ve : byte = 0; 

Batch_mode : boolean = TRUE; 

VAR I OR : word: 

Current_Path : PathString; 

List : EquipmentLi stType; 



BEGIN 

CASE Command OF 

CD, 

MB, 

RD, 

CHDIR , 

MkDir , 

Promt. , 

RmDir : BEGIN 

C$1-} 

Restype := strng; 
Errtype := strng; 

CASE Command OF 



CD, 

ChBir : System. ChDir ( Command_ta.il ); 
MB, 

MKDIR : System. MkDir ( Command_tai 1 ); 
PROMT : GetBir ( Current_Drive, Prompt ) 
RD, 

RMDIR : System. RmDir ( Command_tail ); 
END; 

I OR := IOResu.lt; 

IF I OR <> 0 THEN 

Error_msg := "'G + Error_Code C IOR 3 
ELSE Error_msg := 

GetDir ( Current_Dr i ve , Prompt ); 

Response : = ' ' ; 

Prompt := Prompt + '>'; 

■C$I+} 

END; 
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DEL, 

LS, 

DIR, 

REN, 

COP I , 

ERASE , 

RENAME : BEGIN 

IF Command = LS THEN Command := DIR; 

Run_Local ( Command_Name [ Command ] + SPACE, 
Command_Tai 1 , 

Response, Restype, Error_msg, Errtype, 
Prompt , Batch_Mode ) ; 

END; 

EQUIP : begin 

CheckBreak := TRUE: 

GetDir(0, Prompt); 

IF Redirection THEN BEGIN 
Ini t_Redi rect_Uni t ; 

IF Redi rect_Al 1 _Output THEN; 

END; 

Support. GetEquip ( List ); 

Errtype := strng; 

IF Redirection THEN BEGIN 
IF Restore_Al 1 _Outpi.it THEN; 

Restore_CRT_Assi gnments; 

Restype := -file_type; 

Response := Redi rect . Response_-f i 1 e; 

IF doserror <> 0 THEN 

Errc<r_Msg := Error_Code C DosError ] 
else Error_Msg := 

END 

ELSE BEGIN 

Restype := strng; 

Response := 'Unable'; 

Error_Msg := ''; 

END; 

System. ChDir ( Prompt ); 

Prompt := Prompt + '>'; 

END; 



END; {CASE/ 

END; 

BEGIN 

Redirection := TRUE; C 
end. 



output is normally redirected to -file > 



APPENDIX X 



SOURCE LISTING FOR UNIT SUPPORT 



\ 

j 

(**■** *** *********************** *■*-#-****** ****** ******* *************** ) 



(■**** SUPPORT. PAS ****-) 
(**■** This is the unit that contains typed constants -for use ***■*) 
(*■*** by the main program Distrib to display window menus. ***■*) 
(■**** In addition to general purpose routines, the unit also ***■*) 
(**** contains the initialization procedure tor the program. ##*#) 
(■**** *■***) 
(*•*** ****) 
(♦*** Reterences: Edwards, C. C. , Advanced Techniques in Turbo *■***) 
(*•*** Pascal , pp. 241 - 272, Sybex, Inc., 1987 **•**) 
(*■*** ****) 
(***-* Hall, W.V., "When Turbo Isn't Enough," in ****-) 
(***■* Shammas, N.C., The Turbo Pascal Tool book, ***■*) 
(****• pp. 225 - 226, M & T Publishing, Inc., 1986. *-***) 
(**■** **■**) 
(*•*** Converted to a unit from program Turbocom.com in the ***-*) 
(**+* tirst reference. #***) 
(****■ ***•*) 
(**•** ***•*) 
(**** Last modification Sep 89 ****) 



( *******************************************************************) 
UNIT Support; 

•C Modification History 

4 Aug 89 - Changed introductory maintenance screen 

Deleted conversion messages from TP 4.0 } 

INTERFACE 

(******************** Start Edwards Excerpt ********************) 

Uses 
Crt , 

Dos , 

General , 

D a t a c o m , 

Wndow , 

Pri nter ; 

(*• Reprinted with extensive modifications from Advanced Techniques in 
Turbo Pascal by Charles Edwards, by permission of Sybex , Inc. 
Copyright 1987 Sybex, Inc. All rights reserved. 
********************* Continue Edwards Excerpt ********************) 



******************** ) 



(******************** Continue Edwards Excerpt 
Const Alt_A = 30; 

Alt_B = 48; 

Alt_C = 46; 

Ai t_D = 32; 

Alt_E = 18; 

Al t_F = 33; 

Al t_G = 34; 

Al t_H = 35; 

Al t_I = 23; 

Al t_J = 36; 

Al t_K = 37; 

Al t_L = 38; 

Alt_M = 50; 

Al t_N = 49; 

Al t_0 = 24; 

Alt_P = 25: 

Al t_Q = 16; 

Al t_R = 18; 

Al t_S = 31; 

Al t_T = 20; 

Alt JJ = 22; 

A3 t_V = 47; 

Al t_W = 17; 

Al t_X = 45; 

Al t_Y =21; 

Ai t_Z = 44; 

Home = 71; 

PgUp = 73; 

PgDn = SI; 



Const NUL 


= 


$00 


SOH 


= 


$01 


STX 


= 


$02 


ETX 


= 


$03 


EOT 


= 


$04 


ENQ 


= 


$05 


ACK 


= 


$06 


BEL 


= 


$07 


BS 


- 


$08 


HT 


= 


$09 


LF 


= 


$0A 


VT 


= 


$0B 


FF 


= 


$0C 


CR 


= 


$0D 


SO 


= 


$0E 


SI 


= 


$0F 
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DLE 


= 


f 10; 


DC1 


= 


$11; 


DC2 


= 


$12; 


BC3 


= 


$13; 


DC4 


= 


$14; 


NAK 


= 


$15; 


SYN 


= 


$16; 


ETB 


= 


$17; 


CAN 


= 


$18; 


EM 


= 


$19; 


SUB 


= 


$ 1 A ; 


ESC 


=r 


$ 1 B ; 


FS 


= 


$ 1 C ; 


GS 


= 


$ 1 D; 


RS 


= 


$ 1 E ; 


US 




$1F; 


CEE 


= 


$43; 



Type F'hone_Name = String [30]; 



F'hone_F'arams = Record 

Phone_Number : String [20] ; 
F'hone_Baud : RS_Baud ; 

F'hone_F'ari ty: RS_F'ar i ty; 
F’hone_Length : Byte; 

F'hone_Stop : Byte; 

F'hone_Echo: Boolean; 

End; 

F'hcne_Record = Record 

Name: F'hone_Name; 

F'hone_Data: Phone_F'arams; 

End ; 

F'hone_Names = Record 

Length: Integer; 

Names: Array C1..1] of Phone_Name; 



End ; 

F'hone_Data = Array C1..1] of Phone_F'arams; 
Communications_Type = Record 

Speed: RS_Baud; 
Parity: F:S_F'ar i ty; 
Length : Byte; 

Stop : Byte: 

End ; 

String:. = String!!:.]; 

String4 = StringE4]; 



(* Reprinted with extensive modifications from Advanced Techniques in 
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(******************** 



Continue Edwards Excerpt ********************) 



TYPE EquipmentLi stType = RECORD 

NbrOf Printers, 

NbrOf Seri al , 

NbrOf Diskettes, 

Ini tial Video, 

RAMOnBoard : word; 

IsGamePort , 

IsDiskette : boolean; 

END; 

VAR List : Equi pmentLi stType; 

Var Phone_Fi 1 e: Fi 1 e of F‘hone_Record ; 

{Moved from Dialing Directory } 

Phone_Menu , 

01 d_Phone_Menu: 'Phone_Names; 

Phone_Stuf f , 

01 d_Phone_Stuf f : '"•Phone_Data; 

Phone_Pref ix : String C103; 

Echo , Pr l nt , Asci l _Upl oad , Asci i _Downl oad ,End_Emul ator : Bool ean ; 
Status_Line: Str i ngCBO] ; 

Emulator: String C 103 ; 

Ascii_File : File of Char; 

Asci i _Fi 1 eName: Str i ng C203 ; 

Current_Path : Long_Stri ng; 

Dial_Delay: Integer; 

Last_Di al : Integer ; 

Type Default_Type = Record {The default parameters for Distrib} 

Def aul t_Name: Str i ng [-303 ; 

Def aul t_Com: Byte; 

Def aul t_Modem: Byte; 

Def aul t_Phone: Stri ng[203 ; 

Def aul t_Speed: RS_Baud; 

Def aul t_F'ari ty: RS_Pari ty; 

Def aul t_Length : Byte; 

Def aul t_Stop : Byte; 

Def aul t_Echo: Bool ean ; 

Def aul t_Textcol or : Byte; 

Def aul t_Menucol or : Byte; 

Def aul t_Backcol or: Byte; 

Def aul t_Pref i x : Str ing[ 103 ; 

Def aul t_Del ay: Integer; 

End; 

<* Reprinted with extensive modifications from Advanced Techniques in 
Turbo Pascal by Charles Edwards, by permission of Sybex , Inc. 
Copyright 19S7 Sybex, Inc. All rights reserved. 
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VAR Current : Def aul t_Type; 

Const Def aults: Def ault_Type = 

(Def aul t_Name: ' DISTRIB. CFG ' ; 
De-f aul t_Com: 1 ; 

Def aul t_Modem: 2; 

Def aul t_Phone: '555-1212'; 

De-f aul t_Speed : B9600; 

De-f aul t_F'ari ty: None ; 

De-f aul t_Length: 8; 

De-f aul t_Stop : 1 ; 

De-f aul t_Echo: Fal se; 

De-f aul t_Textcol or : Li ghtGray; 
De-fault_Menucolor: Green; 

De-f aul t_Backcol or : B1 ack ; 

Def aul t_F‘ref i x : 'ATDT9, ,9, , ' ; 
Def ault_Deiay:30) ; 

OK_Menu: Integer = 1; 

OK_Msg: String [33 = 'OK 



Yes_No_Menu: Integer = 2; 

Yes_No_Msg : Array [1..23 of String £33 = ( 

'No ' , 

' Yes ' ) ; 

Di al _Menu: Integer = 5; 

Dial_Msg: Array Cl.. 53 of StnngC63 = ( 

Di al , 

'Repeat ' , 

' Modify' , 

' Del ete ' , 

'Add '); 

Speed_Menu: Integer = 10; 

Speed_Msg : Array Cl.. 103 of String £43 = ( 

' 110 ', 

' 150', 

' 300 ' , 

' 600 ' , 

' 1 200 ' , 

' 2400 ' , 

' 4800 ' , 

' 9600 ' , 



(* Reprinted with extensive modifications from Advanced Techniques in 
Turbo Pascal by Charles Edwards, by permission of Sybex , Inc. 
Copyright 1987 Sybex, Inc. All rights reserved. 
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' 1 9K2 ' , 

' 38K4 ' ) ; 

Par i ty_Menu: Integer = 3; 

Pari ty_Msg: Array Cl.. 33 of StringC43 = ( 

'None' , 

'Odd ', 

' Even ' ) ; 

Stop_Menu: Integer = 2; 

Stop_Msg : Array Cl.. 23 of StringC63 = ( 

' 0 Bits', 

'1 Bit ') ; 

Length_Menu: Integer = 4; 

Length_Msg : Array Cl.. 43 of StringC63 = ( 

'5 Bits' , 

'6 Bits', 

'7 Bits' , 

'8 Bits'); 

Param_Menu: Integer = 14; 

Param_Msg: Array Cl.. 143 of StringC163 = ( 

' Name ' , 

'Phone Number ', 

' Speed ' , 

'Word Length ', 

' Parity ' , 

' Stop Bits ' , 

'Local Echo ', 

'Comm Port ', 

'Modem Port ', 

'Dial Prefix ', 

'Redial Delay ', 

' For eg r oun d Color', 

'Background Color ' , 

'Menu Color '); 

Col or_Menu; Integer = 8; 

Col or_Msg: Array Cl.. 93 of StringC73 = ( 

'Black ', 

' B1 ue ' , 

'Green ' , 

' Cyan ' , 

(* Reprinted with extensive modifications from Advanced Techniques in 
Turbo Pascal by Charles Edwards, by permission of Sybex , Inc. 
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' Red ' , 

' Magenta ' , 

' Brown ' , 

'White ' , 

'Nothing ' ) ; 

Comm_Menu: Integer = 2; 

Comm_Msg : Array Cl.. 2] of String! 5] = ( 

'COM 1 ' , 

'COM 2'); 

Protocol _Menu: Integer = 2; 

Protocol_Msg: Array Cl.. 23 o-f StringC6] = ( 

'Ascii ' , 

' XModem ' ) ; 

Communi cati ons_Menu: Integer = 21; 

Communi cati ons_Msg: Array Cl.. 21] of StringCIO] = ( 

' 300-E-7-1 ' , 

' 300-0-7-1', 

' 300-N-8-1 ' , 

' 1200-E-7-1 ' , 

' 1200-0-7-1 ' , 

' 1200-N-8-1 ' , 

' 2400-E-7-1 ' , 

'2400-0-7-1 ' , 

'2400-N-B-i ' , 

' 4300-E-7-1 ' , 

'4800-0-7-1 ' , 

' 4800-N-8- 1 ' , 

'9600-E-7-1 ' , 

'9600-0-7-1 ' , 

' 9600-N-8- 1 ' , 

' 19K2-E-7-1 ' , 

' 19K2-0-7-1 ' , 

' 19K2-N-8-1 ' , 

'38K4-E-7-1 ' , 

' 38K4-Q-7-1 ' , 

' 3SK4-N-8-1 ' ) : 

Commun i cat i ons_Stuf f : Array Cl.. 21] of Communi cat ions_Type = ( 
(Speed : B300; Parity: Even ; Length : 7 ; Stop: 1 ) , 

(Speed : B300; Par i ty: Odd ; Length : 7 ; Stop : 1 ) , 

(Speed: B300; Parity: None; Length: 8; Stop: 1) , 

(Speed : B1200; Parity: Even ; Length : 7; Stop : 1 ) , 

(Speed : B1200; Parity: Odd ; Length: 7; Stop: 1 ) , 

(* Reprinted with extensive modifications from Advanced Techniques in 
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( Speed : B 1 200; Parity: None; Length: 8; Stop: 1) , 

(Speed: 82400; Par i ty: Even ; Length : 7; Stop : 1 ) , 

(Speed: B2400; Pari ty: Odd; Length: 7; Stop: 1 ) , 

(Speed: B2400; Parity: None; Length: 8; Stop: 1 ) , 

(Speed : B4800; Parity: Even; Length: 7; Stop: 1 ) , 

(Speed :B4800; Parity: Odd; Length: 7; Stop: 1) , 

(Speed : B4S00; Par i ty: None; Length: 8; Stop: 1 ) , 

(Speed: B9600; Pari ty: Even; Length: 7; Stop: 1 ) , 

( Speed :B9600; Parity: Odd; Length: 7; Stop: 1) , 

(Speed: B9600; Par i ty: None; Length: 8; Stop: 1 ) , 

(Speed : B 19200; Par i ty : Even; Length: 7; Stop : 1 ) , 

(Speed : B 19200; Par i ty: Odd; Length: 7; Stop : 1 ) , 

(Speed : B19200; Pari ty: None; Length: 8; Stop: 1 ) , 

(Speed : B38400; Par i ty: Even; Length : 7; Stop: 1 ) , 

(Speed : B38400; Parity: Odd ; Length : 7; Stop: 1 ) , 

(Speed : B38400: Pari ty: None; Length: 8; Stop : 1 ) ) ; 

Hel p_Menu: Integer = 17; 

Hel p_Msg : Array Cl.. 173 of StrinoC26] = ( 

'Alt -A Change drive & path', 

'Alt-B Send a Break signal', 

'Alt-C Update Con-fig File ', 

'Alt-D Dialing Directory ', 

'Alt-E Local echo toggle ', 

'Alt-F Change DC params ', 

'Ait-S Show disk directory', 

'Alt-H Hang up phone ', 

'Alt-L DOS Shell ', 

'Alt-M Activate Master ', 

'Alt-P Port Operations ', 

'PgDn, ', 

'Alt-R XMODEM Get a file ', 

'filt-S Activate Server ', 

'PgUp, ', 

' Al 1-’’" XMODEM Put a file ', 

'Alt-X (ESC) Exit emulator'); 

Hel p_ Index : Array Cl.. 17] of Byte =( 

A1 t_A , 

Ai t_B, 

Alt_C, 

Al t_D , 

Alt_E, 

Alt_F, 

Al t_G, 

(* Reprinted with extensive modifications from Advanced Techniques in 
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Alt_H, 

A1 t_L, 

Alt_M, 

Alt_P, 

PgDn , 

A1 t_R , 

A1 t_S , 

PgUp , 

Alt_T, 

A1 t_X ) ; 

Procedure Initialize; 

Procedure Modi f y_Entry ( I : Integer) ; 

Procedure Save_Fi 1 e (D: Bool ean) ; 

Procedure OK (S: Stri ng3) ; 

Function Yes (S: String4) : Bool ean; 

Procedure Bui lti_Status_Line; 

Function Check_Keyboard: Integer; 

Function Check_Auxport : Char; 



Functi on Fi nd_Envi ronment (What : Long_Stri ng ) : Long_Stri ng ; 

Procedure NoFi ie(S:Long_String) ; 

Procedure GetEquip ( VAR List : Equi pmentLi stType ); 

IMPLEMENTATION 
Procedure Initialize; 

•CThis procedure initializes the de-fault values and reads the phone file} 

Var Phone: F‘hone_Record; 

I : Integer; 

Configuration : File; 

Numread : word; 

(* Reprinted with extensive modifications from Advanced Techniques in 
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Begin 

Assign ( Conf i gurati on , Def aul ts. Def aul t_Name ); 

•IS I-} 

Reset ( Con-f i gurati on , Sizeo-f ( De-faults ) ); 

I-f IOResult > 0 then Current := Defaults 
ELSE Begin 

BlockRead ( Conf i gurati on , Current, Sizeof ( Defaults ) ,Numread) 
Close ( Configuration ); 

If IOResult > 0 then Current := Defaults; 

End ; 

-CSI+3- 

With Current do 
Begin 
Cl rScr ; 

If not Mono then 
Beg i n 

SetCol or (Def aul t_Textcol or) ; 

SetBackground (Def aul t_Backcol or ) ; 

Menuground: =Def aul t_Menucol or ; 

End; 

F’hone_F'ref i x : =Def aul t_Pref i x ; 

Echo: =Def aul t_Echo; 

Dial _Del ay: =Def aul t_Del ay; 

Print: =Fal se; 

Asci i_Upload: =False; 

Asci i _Download: =Fal se; 

GotoXY (27,1); 

Text col or (Def aul t_Textcol or +8) ; 

Wri tel n (' Remote Server Version 1.0'); 

GotoXY <31 ,2) ; 

Wri te( 'Maintenance Screen'); 

GotoXY (35,3) ; 

Write ('Dr. Kodres'); 

Text col or (Def aul t_Tex tool or ) ; 

W^i te_Status ( ' Initializing', 

Def aul t_Textcol or shl 4+Def aul t_Backcol or+S80) ; 

End ; 

Last_Di al : =1 ; 

Assi gn (F'hone_Fi 1 e , ' DISTRIB. F'HN ' ) ; 

{SI-} 

Reset (F‘hone_Fi 1 e) ; 
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If IOResult > 0 then 

Begin {Create new file} 

GetMem (Phone_Menu,SizeOf (F'hone_Names) ) ; 

GetMem (F‘hone_Stuf f , Si zeOf (F‘hone_F'arams) ) ; 

Phone_Menu'\ Length: =1 ; 

Phone_Menu' - . NamesC 1 3 : = ' . . . To be provided... 

Move (Def au.l ts. Def aul t_F'hone , F'hone_Stuf f •"‘C 1 ] , Si zeOf (Phone_Param5) ) ; 
Phone. Name: =Phone_Menu'' - . Names [ 1 ] ; 

Phone. F’hone_Bata: =F'hone_Stuf f ''C 1 ] ; 

Rewrite (Phone_Fi 1 e ) ; 

Wri te (F'hone_Fi le, Phone) ; 

End 

0 1 SB 

Begin {Get phone file} 

I : =Fi 1 eSi ze (F'hone_Fi 1 e) ; 

GetMem (Phone_Menu. , I*Si zeOf (F'hone_Name) +2) ; 

GetMem (Phone_Stuf f , I*SizeOf (Phone_F‘arams) ) ; 

Phone_Menu - '"'. Length: =1 ; 

I : =1 JE 

{#R-} 

While not Eof (Phone_Fi 1 e) do 
Begin 

Read (Phone_Fi 1 e , Phone) ; 

F‘hone_Menu - '\ NamesC I ] : =F'h one. Name; 

Phone_Stuf f [ I ] : =F‘hone. Phone_Bata; 

I : = I +T ; 

End ; 

f$R+} 

End ; 

Cl ose (F'hone_Fi 1 e) ; 

With Current do 
Begin 

RS_Ini ti al i ze (Def au.l t_Com , Def au.l t_Speed , Def au.l t_Pari ty , 

Def ault_Stop , Def aul t_Length ) ; 

End; 

Wri te_Status ( ' Current . Def au.l t_Backcol or shl 4 + 

Current. Def aul t_Textcolor ) ; 

End; {of Initialize} 
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Procedure Save_Fi 1 e (D: Bool ean) ; 

{This procedure asks the user it he wants to save a changed 
contiguration 

It so, it writes the appropriate tile 

Input D: True it saving detault values 
False it saving phone tile 

Var Cont i gurati on : File; 

Phone: Phone_Record ; 

J : Integer ; 

Begin 

It 0pen_Window(50,9,67, 12,Flag_Borders, ' ' ) = 0 then; 

Cl rScr ; 

It D then 

Write ('Save detaults?') 
else 

Write ('Save this entry?'); 

It Yes ('Save') then 
Begin 
Cl rScr ; 

Write ( 'Saving. . . ' ) ; 

It D then 
Begin 

Assign ( Cont i gurati on , Detaults. Bet ault_Name ); 

{$ 1 -} 

Rewrite ( Cont i gurati on , Sizeot ( Detaults ) ); 

It IOResult > 0 then 

NoFi 1 e (Betaul ts. Det au.i t_Name) 
el se 

Beg i n 

BlockWrite < Cont i gurati on , Current, 1 ); 

Close ( Cont iguration ); 

End ; 

End 

•C$1 +} 

else 

Beg i n 

{$R-> 

Assign (Phone_Fi 1 e , 'DISTRIB. PHN ' ) ; 

Rewrite (Phone_Fi 1 e) ; 
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For J:=l to F'hone_Menu A- . Length do 
Begin 

Phone. Name: =F'hone_Menu"'". Names [ J ] ; 

Phone. F'hone_Data: =F'hone_Stuf f "C J] ; 

Wri te (F'hone_Fi 1 e , Phone) ; 

End; 

Cl ose (F'hone_Fi 1 e) ; 

«R+> 

End; 

End: 

If Close_Window then; 

End; {of Save_File> 

Procedure Modi f y_Entry ( I : Integer ) ; 

{This procedure modi-fies an entry in the phone list. 

Input: I - It > 0 then the entry in the phone list to be modi-fied 
If = 0 then the default parameters 

■v, 

Var J,K: Integer; 

Statu.s_Wi ndow, Menu_Wi ndow: Byte; 

S: Long_Str i ng ; 

B: Bool ean ; 



Pr do edure Updat e_St at us ; 

Var J: Integer; 

Begin 

UR-l 

If Get_Wi ndow (Status_Wi ndow) then; 

For J:=l to F'aram_Menu do 
Begin 

GotoXY ( 18 , J ) : 

ClrEol ; 

Case J of 

1: If 1=0 then 

Write (Current. Def aul t_Name) 
el se 

Wri te (Phone_Menu A . NamesC ID; 

2: If I = 0 then 

Wri te (Current . Bef aul t_F'hone) 
el se 

Write (F'hone_Stuff •'''•[ 1 1 . F’hone_Number ) ; 
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3: I-f I = 0 then 

Wri te (Speed_MsgCOrd (Current. Def aul t_Speed) +1 3 ) 
else 

Wri te (Speed_MsgCOrd (Phone_Stu-f f •"•[ 1 3 . F’hone_Baud) +1 3 ) ; 
4: I-f 1=0 then 

Wri te (Length_Msg[ Cur rent . Def aul t_Length-43 ) 
else 

Wri te (Length_MsgCPhone_Stuf f •"•[ I 3 . Phone_Length-43 ) ; 

5: If 1=0 then 

Write (Par i ty_MsgCMi n (Ord (Current . Def aul t_Pari ty ) 

+ 1,3)3) 

el se 
Wr i t e ( 

Pari ty_Msq[ Min (Ord (Phone_Stuf f "'•[ I 3 . Phone_Pari ty) 

+1,3) 3) | 

6: If 1=0 then 

Wr i te (Stop_MsgCCurrent . Def au.lt_Stop+l 3 ) 
el se 

Wri te (Stop_MsgCPhone_Stuff I 3 . Phone_Stop + l 3 ) ; 

7: If I = 0 then 

Wri te ( Yes_No_Msg COrd (Current . Def aul t_Echo) +1 3 ) 
el se 

Wri te (Yes_No_MsgCOrd (Phone_Stu.f f •"' [ I 3 . Phone_Echo) +1 3 ) 
8; Write (Comm_rTsg [Current . Def aul t_Com3 ) ; 

8: Write (Comfn_MsgC Current. Def aul t_Modem3 ) ; 

1 0: Wr i te ( Current . Def aul t_Pref i x ) ; 

1 1 : Write (Current . Def aul t_Del ay) ; 

12? Write ( Co 1 or _MsgC Current. Def aul t_Textcol or+1 3 ) ; 

13: Write (Col or_Msg [Current . Def aul t_Backcol or+1 3 ) ; 

14: Wri te (Col or _Msg [Current . Def aul t_Menucolor+l 3 ) ; 

End; -Cof Case} 

End; 

If Get_Wi ndow (Menu_Wi ndow) then; 

End; Cof ! Jpdate_Status> 

Beqi n 

If I =0 then 
If Mono then 

Par am_Menu: =10 
else 

Par am Menu: =13 
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ei se 

F‘aram_Menu: =7 ; 

I-f Open_Wi ndow (1,2,50, 3+F'aram_Menu , FI ag_Borders , 
'Parameters ' ) = 0 then; 

Status_Wi ndow: =Acti ve_Wi ndow"'. ID; 

ClrScr; 

For J:=l to Param_Menu do 
Begin 

GotoXY ( 1 , J) ; 

Write (F‘aram_l v IsgC J ] 

End ; 

I-f Qpen_Wi ndow (52, 2 , 70 , 3+Param_Menu,Fl ag_Borders , 
'Options') = 0 then; 

Menu_Wi ndow: =Acti ve_Wi ndow"'. ID; 

Cl rScr ; 

Repeat Begin 

Update_Status; 

J : =F'rocess_Wi ndow_Menu (F'aram_Menu) ; 

Case J of 

0: ; CESC...do nothing} 

1: Begin {Change Name} 

If 0pen_Window(5,21 , 75 , 24 , FI ag_Borders , 
'Name') = 0 then; 

ClrScr; 

Wri te ( ' Name: ' ) ; 

Read In (S) ; 

If Length (S) > 0 then 
If I = 0 then 

Current. Def aul t_Name: =S 
else 

F‘hone_Menu""'. Names! 1 3 : =S 

4 - » 

j 

If Close_Window then; 

End ; 

2: Begin {Phone number) 

If 0pen_Wi ndow (5 , 21 , 75 , 24 , FI ag_Borders , 
'Phone Number ' ) = 0 then; 

Cl rScr ; 

Wr i te (' Phone Number: '); 

Readl n (S) ; 

If Length (S) > 0 then 
If I =0 then 

Current . Def aul t Phone: =S 
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(******************** Continue Edwards Excerpt ********************) 

el se 

F'hone_Stuf f •"•[ I ] . Phone_Number : =S; 

If Close_Window then; 

End; 

3: Begin {Speed) 

If 0pen_Window(69,5,75, 14 , FI ag_Borders , 'Baud ' ) = 0 
then; 

ClrScr ; 

K: =Process_Wi ndow_Menu (Speed_Menu) ; 

If K > 0 then 
If I = 0 then 

Current . Def aul t_Speed: =RS_Bau.d (K-l ) 
el se 

Phone_Stuf f •"•[ I ] . Phone_Baud : =RS_Baud (K-l ) ; 

If Close_Window then; 

End ; 

4: Begin {Word Length) 

If 0pen_Window(69,6,77, 1 1 ,Flag_Borders, 'Bits ' ) = 0 
then ; 

ClrScr ; 

K: =Process_Wi ndow_Menu (Length_Menu) ; 

If K > 0 then 
If I =0 then 

Current . Def aul t_Length : =K+4 
el se 

Phone_Stuf f 1 3 . Phone_Length : =K+4; 

If CLose_Window then; 

End; 

5: Begin {Parity) 

If 0pen_Wi ndow (69 , 7 , 75 , 1 1 , FI ag_Borders , 

'Type') = 0 then; 

ClrScr ; 

K: =Process_Wi ndow_Menu (Par i ty_Menu.) ; 

If K < 3 then K:=K-1; 

If K >= 0 then 
If I = 0 then 

Current . Def aul t_Par i ty: =RS_F‘ari ty (K) 
el se 

Phone_Stuf f •"•[ I ] . Phone_Par i ty : =RS_Pari ty (K) ; 

If Close_Window then; 

End ; 

6: Begin {Stop bits) 

If 0pen_Wi ndow (69 ,8,77,11 , FI ag_Borders , 

'Bits') = 0 then; 

(+ Reprinted with extensive modifications from Advanced Techniques in 
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ClrScr; 

K: =F'rocess_Wi ndow_Menu (Stop_Menu) ; 

If K > 0 then 
If I =0 then 

Current . Def aul t_Stop: =K-1 
else 

F‘hone_Stuf f I ] . Phone_Stop: =K-1 ; 

If Close_Window then; 

End ; 

7: Begin {Local echo} 

B: =Yes ( ' Echo ' ) ; 

If I =0 then 

Current . Def aul t_Echo: =B 
el se 

F'hone_Stuf f I ] . F'hone_Echo: =B; 

End ; 

8: Begin CComm port} 

If Open_Window (69, 10,76, 13, FI ag_Boraers , 
'Port') = 0 then; 

Cl rScr ; 

K: =Process_Wi ndow_Menu (Comm_Menu) ; 

If K > 0 then 

Current. Def ault_Com: =K; 

If Close_Window then; 

End; 

9: Begin CComm port} 

If 0pen_Wi ndow (69,10,76,13 , FI ag_Borders , 
'Port') = 0 then; 

Cl rScr ; 

K: =F‘rocess_Wi ndow_Menu (Comm_Menu) ; 

If K > 0 then 

Current . Def aul t_Com: =K; 

If Close_Window then; 

End; 

10: Begin {Dial Prefix} 

If 0pen_Window(5,21 , 75 , 24 , FI ag_Borders , 
'Prefix') = 0 then; 

Cl rScr ; 

Wri te ( 'Pref i x : ' ) ; 

Read In (S) ; 

If Length (S) > 0 then 

Current. Def ault_F‘ref ix: =S; 

If Ciose_Window then; 

End ; 
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(*************#+-■#■**■#•* Continue Edwards Excerpt *********#**********) 

11: Begin (Default redial delay} 

I-f Open_Window (5,21 , 75,24,Flag_Borders, 

'Redial delay') = 0 then; 

ClrScr ; 

Write( 'Redial delay (in seconds): '); 

Readl n (Current . Def aul t_Del ay) ; 

I-f Close_Window then; 

End ; 

12, -(Foreground color} 

13, {Background color} 

14: Begin {Menu color} 

I-f Open_Wi ndow (69 , 2+J , 78, 1 1+J , FI ag_Borders , 

'Colors' ) = 0 then; 

Cl rScr ; 

K: =F‘rocess_Wi ndow_Menu (Col or_Menu) ; 

I-f K > 0 then 
Case J o-f 

12: Current . De-f aul t_Textcol or : =K-1 ; 

13: Current . De-f aul t_Backcol or : =K-1 ; 

14: Current . De-f aul t_Menu.col or : =K-1 ; 

End; -Cot Case} 

I-f Close_Window then; 

End; 

End; -Co-f Case} 

End 

Until J = 0; 

I-f Close_Window then; 

Save_Fi led = 0); 

I-f Close_Window then; 

•ct-Rf 

End; -Cof Modi f y_Entry} 

Procedure QK (S: Str ing3) ; 

{This procedure displays a window on the screen and waits for an 
acknol edgement from the user 

Input: S - The title to use for the window 

■k 

J 

Begin 

If 0pen_Window(60,5,64,7,Flag_Borders,S) = 0 then; 

If Process_Window_Menu. (0K_Menu) = 0 then; 

If Close_Window then; 

End; Cof OK} 
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Function Yes (S: Str i ng4) : Bool ean ; 

{This procedure prompts the user for a yes or no response 
Input: S - The title to use for the window 
Output: True if YES was selected 

\ 

J 

Beg i n 

If Qpen_Window(69,9,74, 12 , FI ag_Borders , S) = 0 then; 
Yes: =F'rocess_Wi ndow_Menu ( Yes_No_Menu) = 2; 

If Close_Window then; 

End; {of Yes} 

Procedure Bui 1 d_Status_Li ne; 

{This procedure updates and displays the status line} 

VAR Comport : string! ID; 



Begin 

Str ( Current_COM, Comport ); 

Sta.tus_Li ne: = ' ' + {40 spaces} 

' ; C40 spaces} 

Insert ('Com Port: ' , Status_Li ne , 1 ) ; 

Insert (Comport , Status_Li ne , 11); 

WITH Dat acorn. Comport C Current_C0M ] BO 
BEGIN 

Insert ( Speed_MsgC0RD ( Speed ) + 1 3, Status_Line, 13); 

Insert ( 'Baud ', Status_Line, 18 ); 

Insert ( Length_t ¥ lsgC Length-43, Status_Li ne , 23 ); 

Insert ( Parity_Msg[Min (0RD( Parity )+l, 3)3, Status_Line, 30); 
Insert ( Stop_MsgC Stop + 13, Status_Line, 35 ); 

END; 

If Echo then 

Insert ( ' Echo ' , Status_Li ne , 47 ) ; 

If Print then 

Insert < 'Print ' , Status_Li ne , 52) ; 

Insert ('Home for Hel p ' , Status_Li ne , 68) ; 

Wri te_Status (Status_Li ne , Foreground shl 4 + Background) ; 

End; {of Bui 1 d_Status_Li ne] 

Function Check_Keyboard: Integer; 

{This function checks for keyboard input 
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Output: 0 if no key pressed 

If normal key then high byte is 0 and low byte is value of key 
If special key then low byte is 0 and high byte is value of key 

> 

Var Ch:Char; 

Begin 

If Ascii_Upload then 
Begin 

If Eof (Asci i _Fi 1 e) then 
Begin 

Close (Asci i _Fi 1 e) ; 

Asci i _Upl oad : =Fal se; 

Bui 1 d_Status_Li ne; 

End 
el se 

Begin 

Read (Asci i_Fi le,Ch) ; 

If Ch = Char (LF) then 
Ch: =Char (NUL) ; 

Check_Keyboard: =Byte(Ch) ; 

End 

End 

else if Keypressed then 
Begin 

Ch := Read Key; 

If (Ch = #0) then 
Begin 

Ch := ReadKey; 

Check_Keyboard: =Byte (Ch) shl 8; 

End 
el se 

Check_Keyboard: =Byte (Ch) ; 

End 
el se 

Check_Keyboard : =0; 

End; {of Check_Keyboardl 

Func t i on Ch ec k _ Aux p or t : Ch ar ; 

{This function checks for input from the data communications port 
If the appropriate global booleans are set, it will send the output 
to the printer or to a disk file 

Output: NUL if no character otherwise character received 
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Var C-h:Char; 

Begin 

If RS232_Avai 1 then 
Begin 

Ch := RS232_In; 

If Ch <> Char(NUL) then 
Begin 

If Print then 
Wri te (LST,Ch) ; 

If Asci i_Downl oad then 
Write (Asci i_Fi le,Ch) ; 

End; 

Check_Auxport : =Ch ; 

End 

else 

Check_Auxport : =Char < NUL ) ; 

End; Cof Check_Auxport> 

Functi on Fi nd_Envi ronment (What : Long_Str i no ) : Long_Str ing ; 

{This function searches the environment for a particular specifier of 
the form: IB=Text 

Input; What - the ID to look for 

Output: The Text of the environment string or empty if not found 

\ 

Type Environment = Array Cl.. 32767 3 of Char; 

Var Environ: •'"Environment; 

Envi ron_Seoment : word; 

S: Long_Stnng; 

I : Integer ; 

Begin 

Envi ron_Segment := MemWCPref i xSeg : $002C3 ; 

Find_Environment: = ' ' ; {Assume not found/ 

What : =What+ '= ' ; 

Envi ron : =PTR (Envi ron_Segment ,0) ; 

I : =1 ; 

While Environed] <> •'<£! Do 
Begin 
S: = ' ' ; 
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Repeat Begin 

S: =S+Environ -A- C 1 3; 

I :=I+1 ; 

End 

Until Environed] = •*•<§; 

If (Length (S) >= Length (What ) ) and 

(Copy (S, 1 , Length (What) ) = What) Then 

Find_Envi ronment : =Copy (S, Length (What) +1 , Length (S) -Length (What) ) 
el se 

I : =1+1; 

End; 

End; Cof Fi nd_Envi ronment } 

Procedure NoFi 1 e (B: Long_Stri ng ) ; 

{This procedure opens a window and notifies the user that a file was 
not found} 

Begin 

If 0pen_Window(42,2,80,5,Flag_Borders, 'No file') = 0 then; 

ClrScr; 

Write( 'Cannot find file ',S); 

OK ( " ) ; 

If Close_Window then; 

End; {of NoFile} 



(* Reprinted with extensive modifications from Advanced Techniques in 
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(*********************** Start Hall Excerpt ************************) 

Procedure GetEquip ( VAR List : Equi pmentLi stType ); 

CONST SYS_INT ; byte = $11; 

VAR Regs ; Dos. Regi sters; 

BEGIN 

With List DC BEGIN 
With Regs DO BEGIN 

(* The library GetEquip appears in The Turbo Pascal Tool book by Namir 
C. Shammas (ed. ) and has been reprinted with the permission of the 
publisher M T Books 1-800-533-4372. Minor modifications by Nelson 
Ard. 
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(************************ Continue Hall Excerpt *********************) 
INTR ( SYS_INT , Regs); 

NbrOf Printers := AH SHR 6; 

IsGamePort := (AH AND $10) > 1; 

NbrOf Serial := (AH AND $0E> SHR 1; 

IsDiskette := (AL AND $01) = 1; 

IF IsDiskette THEN 

NbrO-f Di skettes := (AL SHR 6) + 1 
ELSE 

NbrO-f Di skettes := (AL SHR 6) + 0; 



Initial Video := (AL AND $30) SHR 4; 

CASE Initial Video OF 

1 : InitialVideo := 0; 

2 : InitialVideo := 2; 

3 : InitialVideo := 7; 

END; 

RAMOnBoard := ((AL AND $0C> + 1) * 16; 

END; C Regs } 

Wr i tel n ; 

Writeln ('No. of Printers = NbrOf Pri nters ); 

Writeln ('No. of Serial = ', NbrDf Serial ); 

Writeln ('No. of Diskettes = ', NbrOf Diskettes ); 

Writeln ('InitialVideo = ', InitialVideo ); 



Writeln ('RAMOnBoard = RAMOnBoard ); 

Writeln ( ' IsGamePort = ', IsGamePort ); 

END; 

END; 



(* The library GetEquip appears in The Turbo Pascal Tool book by Namir 
C. Shammas (ed.) and has been reprinted with the permission of the 
publisher M T Books 1-800-533-4372. Minor modifications by Nelson 
Ard . 

**************************** End Hall Excerpt ***********************) 

BEGIN 

END. 



APPENDIX Y 



SOURCE LISTING FOR UNIT WNDOW 



\ 

J 

(*******************************************************************) 



(**** WNDOW. PAS ****) 
(**** This is a library of general purpose routines to ****) 
(*•*** display windows and control menu bars for selectors on ****) 
(**** the IBM PC screen. ****) 
(**** ****) 
(**** Reference: Edwards, C. C. , Advanced Techniques in Turbo ****) 
(**■** Pascal , pp. 73-97, Sybex, Inc., 1987 ****) 
(**** ****) 
(*+*-* Modified slightly to make a Turbo Pascal 4.0 Unit ****) 
(**** ****) 
(*-##*■ Last Modification: Sep 89 *#**) 



(*******************************************************************) 
UNIT Wndow; 

INTERFACE 

(******************** Start Edwards Excerpt ********************) 

USES General, Crt, Dos; 

r -t*. >— \ 

Type Window_Link = "" Wi ndow_Control _B1 ock; 

Screen_Line = Array Cl.. 80 3 of WORD; {! changed per 

upgrade ) 

Screen_Arra.y = ArrayC1..253 of Screen_Line: 

Screen_Block = Array C 1 .. 20003 of Integer; 

Window_Title = StringC503; 

Window_Control _BI ock = Record 

XI , Y1 , X2, Y2: Byte; {Window boundaries! 
X,Y:Byte; {Cursor location) 

ID: Byte; 

Menu_ Index: Integer; 

Menu_TopY: Integer ; {The top item in a menu 
FI ag : Byte; 

Foreground ,Menu.ground: Byte; 

(* Reprinted with extensive modifications from Advanced Techniques in 
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Title: Window_Ti tie; 

Back_Link: Window_Link; 

Screen_Contents: Screen_Bl ock; 

End; Cof Record Window_Control_Block) 



Border_Type = (Si ngl e , Doubl e) ; 

Long_String = STRINGC255D; 

Const Foreground : Byte = LightGray; {Color within the windows) 

Menuground: Byte = LightGray; {Color of the menu borders) 

Background: Byte = Black; {Background color) 



{These are the bit values of the field 

Const Flag_Borders = $01; 

Fiag_Gcto = $02; 

FI ag_Rel ocate= $04; 

Flag_Close = $08; 



"Flag" in Wi ndow_Control _B1 ock) 
{Borders on the window) 

{Goto to this window is allowed 
{Window may be relocated) 
{Window may be closed from main 
menu) 



Var W, 

Acti ve_Wi ndow: Wi ndow_Li nk ; 

Window_Count: Integer: 

Window_Fixed_Part : Integer; 

Mono: Boolean; 

{Forced to assign these variables on the same line - type mismatch ) 
Screen , 

Screen_New , Screen_Temp : •'"■Screen_Array; 



Procedure Set Co lor (Color: Byte) ; 

{This procedure sets the forground color) 

Procedure SetBackground (Color : Byte) ; 

{This procedure sets the background color) 



Procedure Get_Dummy_Screen; 

{This procedure changes Screen to point to a dummy screen area on 
the heap) 

Procedure Get_Real_Screen: 

{This procedure undoes the work of Get_Dummy_Screen) 
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Procedure Bui 1 d_Borders (Lines: Border_Type) ; 

[Purpose: 

This procedure builds a border around a window. 
Input: 

Lines:Single = Single line border 
Double = Double line border 



Output : 

None } 

Function Open_Window (X1,Y1,X2,Y2: Byte; Flag: Byte; 

Name: Window_Title) :Byte; 

[Purpose: 

This -function opens a window on the screen and places a border 
around it. 

Input : 

X1,X2,Y1,Y2 are the coordinates o-f the window to be opened. 
Flag is a. bit mask o-f -functions allowed in this window 
Name is the title o-f the window 

Output : 

Open_Window returns a byte as -follows: 

0 = Window opened OK 

1 = Invalid window coordinates 

2 = Not enough memory 



Function Close_Window: Boolean; 

[This -function closes the currently active window. 

Output : 

Returns a True it there is no currently active window. 



Function Save_Window: Window_Link; 

[This procedure saves oft the current window ?/ closes it 



Output : 

Pointer to the saved window 

* 1 . 



(* Reprinted with extensive modi -f i cati ons -from Advanced Techniques in 
Turbo Pascal by Charles Edwards, by permission o-f Sybex, Inc. 
Copyright 1987 Sybex, Inc. All rights reserved. 
********************* Continue Edwards Excerpt ********************) 



228 






(******************** Continue Edwards Excerpt ********************) 

Function Restore_Wi ndow (W: Wi ndow_Li nk) : Bool ean; 

■CThis procedure re-creates a saved window on the screen} 

Function Get_Wi ndow (Which: Integer) : Bool ean; 

•CThis procedure brings window "Which" to the top o-f the screen} 
Function Move_Wi ndow (X , Y: Integer ) : Bool ean ; 

•CThis procedure moves the current window by "X,Y" locations} 

Procedure Write_Status(S:Long_String; Attrib: Integer) ; 

•CThis procedure writes to line 25 o-f the display 

Input: S = String to be written 

Attrib = Video attribute byte to use 

J 

Function Process_Wi ndow_Menu ( Var Menu) : Byte; 

•CThis procedure will display and process a menu in the currently 
active window. 

The menu may be longer or shorter than the actual window. 

Input: Menu - A pointer to a record with the -following -format: 

Bytes 0-1: An integer giving the number o-f string 
variables 

Bytes 2-n: A series o-f String variables. 

Outout: The -function returns the index (1 relative) o-f the item 
selected. A zero is returned i-f the ESC key is pressed 

\ 

J 

Procedure Ini t_Window_In-f o; 

•CThis procedure initializes all the ot data used by the 
windowing routines-} 

IMPLEMENTATION 

Procedure SetCol or (Col or : Byte) ; 

•CThis procedure sets the -forground color 

Input: Color = Color to set -forground to } 

Begin 

Foreground : =Col or ; 

Tex tool or (Color) ; 

End; Co-f SetCol or} 
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Procedure SetBackground (Color: Byte) ; 

(This procedure sets the background color 

Input: Color = Color to set background to 

S 

Begin 

Background: =Col or ; 

Text background (Color) ; 

End; -Cof SetBackground]- 

Procedure 6et_Dummy_Screen; 

{This procedure changes Screen to point to a dummy screen area on 
the heap)- 
Begin 

If Screen_New <> Nil then 
Begin 

Screen_New'-: =Screen A- ; 

Screen : =Screen_New; 

End; 

End; {of Get_Dummy_Screen} 

Procedure Get_Real _Screen; 

{This procedure undoes the work of Get_Dummy_Screen3- 
Begin 

If Screen_New <> Nil then 
Begin 

Screen_Temp'“: =Screen_New"'"; 

Screen: =Screen_Temp; 

End; 

End; -Cof Get_Real_Screen> 

Procedure Bui 1 d_Borders (Li nes: Border_Type) ; 

{Purpose: 

This procedure builds a border around a window. 



Input : 

Lines:Single = Single line border 
Double = Double line border 



Output ; 

None } 
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Const Upper_Left : Array CO. . ID of Char = (#218, A J); 

Upper_Right : Array CO. . 13 of Char = (#191, #187); 

Lower_Left : Array CO.. 13 of Char = (#192, #200); 

Lower_Ri ght : Array CO.. 13 of Char = (#217, #188); 

Verti cal : Array CO. .13 of Char = (#179, #186); 

Hori zontal : Array CO.. 13 of Char = (#196, #205); 

Var Index: Byte Absolute Lines; 

XX , YY , I : Byte; 

MG,H,V: Integer; 

Begin 
I : = 1 ; 

With Acti ve_Wi ndow"’’ do 
Begin 

If (Flag and FI ag_Rel ocate) = FI ag_Rel ocate then 
Upper_Lef t C 1 3 : =’ J 
else 

Upper _Lef t C 1 3 : =#20 1 ; 

MG: =Menu.ground shl 8; 

H: =MG+Byte (Horizontal C Index 3 ) ; 

V: =M6+Byte (Vertical C Index 3 ) ; 

Screen "” CY 1 , X 1 3 : = (MG) +Byte ( Upper _Left C Index 3 ) ; 

Screen""C Y1 , X23 : = (MG) +Byte (Upper_Ri ght C Index 3 ) ; 
Screen"'CY2, XI 3 : = (MG) +Byte ( Lower _Left C Index 3 ) ; 
Screen"'CY2, X23 : = (MG) +Byte (Lower _Ri ghtCIndex3) ; 

XX: =X1+1 ; 

While XX < X2 do 
Begi n 

If I <= Length (Title) then 

Screen'CYl , XX3 := (Foreground shl 8) +Byte (Ti tl eC 1 3 ) 

+ Index shl 11 

el se 

Begin 

Fill Word ( Screen"'’ C Y1 , XX 3 , X2-XX , H) ; 

XX: =X2; 

End ; 

XX : =XX+1 ; 

I : =1+1 ; 

End ; 

Fill Word (Screen"’C Y2 , X 1 + 1 3 , X2-X 1-1 , H) ; 
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For YY: =Y1+1 to Y2-1 do 
Begin 

Screen^CYY , X 1 ] : =V; 

Screen"'’ CYY , X23 : =V; 

End; 

End; -Cot With} 

End; tot Bui 1 d_Borders} 

Function Open_Wi ndow ( X 1 ,Y1 ,X2,Y2:Byte;Flag:Byte; 

Name: Window_Title) :Byte; 

{Purpose: 

This function opens a window on the screen and places a border 
around it. 

Input: 

X1,X2,Y1,Y2 are the coordinates of the window to be opened. 

Flag is a bit mask of functions allowed in this window 
Name is the title of the window 

Output : 

Open_Window returns a byte as follows: 

0 = Window opened OK 

1 = Invalid window coordinates 

2 = Not enough memory 

\ 

J 

Var B1 ock : Wi ndow_Li nk ; 

Line_Length,Window_Size, I: Integer; 

Y , Borders: Byte; 

Begin 

If Act ive_Wi ndow <> Nil then 

If Acti ve_Window'". FI ag and FI ag_Borders = Flag_Borders then 
Bui 1 d_Borders (Single) ; 

Li ne_Length : = (X2-X1+1 ) ; 

Borders: =Byte (FI ag and Flag_Borders = FI ag_Borders) ; 

Wi ndow_Size: =Li ne_Length* ( Y2-Y1 + 1 ) *2+Wi ndow_Fi xed_F'art ; 

If (XI < 15 or (X2 > SO) or (Y1 < 1) or (Y2 > 25) or 
(X2-X1 < 2) or (Y2-Y1 < 2) then 
Open_Wi ndow: =1 

else if (NemAvail < Wi ndow_Si ze+1 ) and (MemAvail >= 0) then 
0pen_Wi ndow: =2 
else Begin 

GetMem (B1 ock , Wi ndow_Si ze) ; 

Block"' - . XI : =X1 : 
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Block-". X2:=X2; 

Block''". Y1 :=Y1; 

Block-'". Y2:=Y2; 

Block-”-. X:=WhereX; 

Block-". Y:=WhereY; 

B1 oc k'" . Ti 1 1 e : =Name ; 

Block - '". FI ag: =F1 ag; 

B1 ock--. Menu_Index : =0; 

Block-". Menu_TopY: =0; 

Block-”-. Foreground :=Foreground+ (Background shi 4); 

Block- - ”-. Menuground: =Menuground+ (Background shl 4); 

B1 ock-"-. Back_Link: =Acti ve_Wi ndow; 

Acti ve_Wi ndow: =Block; 

I s =1 ; 

For Y: =Y1 to Y2 Do 
Begin 

Move (Screen-"[ Y, X 1 ] , B1 ock-". Screen_ContentsC I ] , 

Li ne_Length*2) ; 

I : =I+Li ne_Length ; 

End; 

Wi ndow 

(Xl+Borders, Yl+Borders, X2-Borders , Max ( (Y2-Borders) , (Yl+Borders+1 ) ) ) ; 

I-f Borders = 1 then 

Bui 1 d_Borders (Double) : 

GotoXY (1,1); 

Window_Count: =Wi ndow_Count+l ; 

Bloc k.-" . I D : =W i nd ow_C-oun t ; 

0pen_Wi ndow: =0; 

End; 

End; -Cof Qpen_Wi ndowl- 
Function Cl ose_Wi ndow: Boolean; 

{This -function closes the currently active window. 

Output : 

Returns a True i-f there is no currently active window. 



Var Block: Window_Link; 

Li ne_Length , Wi ndow_Si ze , I : Integer ; 

Y , Borders: Byte; 

Begin 

If Acti ve_Wi ndow = Ni 1 then 
Cl ose_Wi ndow: =True 
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el se 

Begin 

Block: =Acti ve_Wi ndow; 

Line_Length: = (Block - "'. X2-Block /s . Xl + 1 ) ; 

Window_Si :e: =Line_Length* (Block'\ Y2-Block / \ Yl+1 ) *2 
+ Window_Fixed_Part; 

I : = 1 ; 

For Y: =Block"' - . Y1 to Block - ". Y2 Do 
Begin 

Move (B1 ock'\ Screen_ContentsC I D , Screen " C Y, B1 ock'\ XI ] , 
Li ne_Length*2) ; 

I : = I+Li ne_Length; 

End ; 

Acti ve_Wi ndow: =B1 ock' - '. Back_Link ; 

If Acti ve_Wi ndow = Nil then 
Windowd, 1,80,25) 
else with Acti ve_Wi ndow -- ' - do 
Begin 

Borders: =Byte (Flag and Flag_Borders = FI ag_Borders) ; 

Window(Xl+Borders,Yl+Borders,X2-Borders,Max ( (Y2-Borders) , 
(Yl+Borders+1 ) ) ) ; 

If Borders = 1 then 

Bui ld_Borders (Double) ; 

SetCol or (Foreground and 7); 

SetBackground (Foreground shr 4); 

End; 

BotoXY (B1 ock X , B1 ock - ' -- . Y) ; 

FreeMem (Block , Window_Size) ; 

Window_Count : =Wi ndow_Count-l ; 

Close_Window: =False; 

End ; 

End; (of Cl ose_Wi ndow} 

Function Save_Wi ndow: Wi ndow_Link ; 

[This procedure saves off the current window $< closes it 
Output : 

Pointer to the saved window 

J 

Var W: Window_Link; 

Begin 

W: =Acti ve_ Window; 
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If Open_Window(W"\ XI, W'\ Y1 ,W'\ X2, W'". Y2,W A . Flag, W"\ Title) > 0 then 
Save_Wi ndow: =Ni 1 
else 

Begin 

Acti ve_Wi ndow'-. ID:=W'". ID; 

Acti ve_Wi ndow - '". Menu_Index : =W - '". Menu_Index ; 

Acti ve_Wi ndow". Menu_TopY : =W'". Menu_TopY; 

W: =Acti ve_Window; 

Act i ve_Wi ndow: =W"\ Back_Li nk; 

If Close_Window then; 

Save_Wi ndow: =W; 

End; 

End; {of Save_Window! 

Function Restore_Wi ndow (W: Wi ndow_Li nk) :Boolean; 

{This procedure re-creates a saved window on the screen! 

Begin 

SetCol or (W"\ Foreground and 7); 

SetBackground (W"". Foreground shr 4); 

If Open_Wi ndow (W"\ XI ,W"".Y1 ,W“"". X2,W"". Y2,W"\ Flag ,W'". Title) > 0 then 
Restore_Wi ndow: =Tru.e 
else 

Begin 

Acti ve_Wi ndow"". ID:=W'". ID; 

Acti ve_Wi ndow"'". Menu_ Index : =14'". Menu_ Index ; 

Acti ve_Wi ndow"". Menu_TopY: =W - "". Menu_TopY; 

W"\ Back_Link: =Acti ve_Wi ndow; 

Acti ve_Wi ndow: =W; 

Restore_Wi ndow: =Ci ose_Wi ndow; 

End; 

End; Cof Restore_Wi ndow! 

Function Get _Wi ndow (Which: Integer) : Boolean; 

{This procedure brings window "Which" to the top of the screen! 

Var Wi ndowP: Wi ndow_Li nk ; 

Function hove_Wi ndows: Boolean; 

Var W: Window_Link; 

Beg i n 

W: =Save_Wi ndow; 

If W = Nil then 

Move_Wi ndows: =True 
Else 

If W'-.ID <> Which then 
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Begin 

If Move_Wi ndows then 
Move_Wi ndows: =True 
else 

Move_Wi ndows: =Rest or e_Wi ndow (W) ; 

End 
el se 

Begin 

WindowF': =W; 

Move_Wi ndows: =Fal se; 

End ; 

End; -Cot Move_Wi ndows} 

Begin [Outer block of Get_Window} 

Get_Wi ndow: =Fal se; 

Wi ndowp : =Act i ve_Wi ndow; 

While (WindowF <> Nil) and (Wi ndowP'. ID <> Which) do 
Wi ndowP: =Wi ndowP‘\ Back_Li nk; 

If Wi ndowP = Nil then 
Get_Window: =True 

else if Act i ve_Wi ndow"’ - . ID <> Which then 
Begin 

Get_Dummy_Screen; 

If Move_Wi ndows then 
Get_Wi ndow: =True 
el se 

Get_Wi ndow: =Restore_Wi ndow (Wi ndowP) ; 

Get_Real _Screen ; 

End ; 

End: Cof Get_Window> 

Function Move_Wi ndow ( X , Y: Integer ) : Bool ean ; 

[This procedure moves the current window by "X,Y" locations} 

Var W: Wi ndow_Li nk ; 

XC, YC,Line_Length , Y I , Borders: Byte; 

I : Integer ; 

Beg i n 

W: =Act i ve_Wi ndow; 

If W = Nil then 

Move_Wi ndow: =True 

else if (W'-.X1+X < 1) or (W"\Y1+Y < 1) or (W'".X2+X > SO) 

or (W--.Y2+Y > 24) 
then Move_Wi ndow: =True 
else Begin 

XC: =WhereX; 
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YC: =WhereY; 

Li ne_Length: =W A . X2-W A . Xl + 1 ; 

I:=l; 

For YI:=W-\Yi to W"\Y2 do 
Begin 

Exchange (W A . Screen_Contents[ I ] ,Screen A CYI , W A . X 1 D , 

Li ne_Length*2) ; 

I : =I+Li ne_Length; 

End; 

W\ X1:=W"\ Xl+X; 

W-\Y1:=W'-. Yl+Y; 

W X2:=W"\ X2+X; 

W'".Y2:=W\ Y2+Y; 

I:=i; 

For Y I : =W'" . Y i to W A .Y2 do 
Begin 

Exchange (W A . Screen_Contents[ I 3 , Screen '-C YI , W'“. XI 3 , 

Li ne_Length*2) ; 

I : =I+Li ne_Length; 

End ; 

Borders: =Byte (W A . FI ag and Flag_Borders = FI ag_Borders) ; 
Window <W A . Xl+Borders, W A . Yl+Borders,W A . X2-Borders, 

Max ( (W A . Y2-Borders) , (W A . Yi+Borders+i ) ) ) ; 

GotoXY (XC , YC) ; 

End ; 

End; -Cot Move_Window> 

Procedure Wri te_Status (S: Long_Str i ng; Attr i b : Integer ) ; 

{This procedure writes to line 25 o-f the display- 

input: S = String to be written 

Attrib = Video attribute byte to use 

y 

Var X:Byte; 

Begin 

Attrib: =Attrib shl 8; 

For X:=l to 80 do 

If X > Length (S) then 

Screen A [ 25 , X 3 : = Attr i b+f-20 
el se 

Screen"- [25 , X 3 : =Attri b+Byte ( S [ X 3 ) ; 

End; {of Wr i te_Status> 



(* Reprinted with extensive modifications from Advanced Techniques in 
Turbo Pascal by Charles Edwards, by permission of Sybex , Inc. 
Copyright 1987 Sybex, Inc. All rights reserved. 
**+****************** Continue Edwards Excerpt ******************h i*) 



237 



(******************** Continue Edwards Excerpt ********************) 



Function Keyin (Checkit: Boolean) : Integer; 

{This procedure reads in a key from the keyboard. 

Input: Checkit = True if we should call Speci al _F‘rocessi ng to check it 
= False if we should not call Special_F'rocessing 

Output: The value of the key read 

Function keys are returned with a 0 in the low byte and the 
extended scan code in the high byte 

** 

J 

Va r C:Char; 

Key: Integer; 

Done: Boolean; 

Begin 

Done: =True; 

Repeat 
Begi n 

Repeat until KeyF'ressed; 

C := ReadKey; 

If (C = #0) then 
Begin 

C := ReadKey; 

Key;=Byte(C) shl 8; 

End 

else 

Key: =Byte (C) ; 

If Checkit then 
Done: =TRUE; 

nn d 

until Done; 

Keyi n: =Key; 

End; Cof Keyin} 

Function Process_Wi ndow_Menu (Var Menu): Byte; 

{This procedure will display and process a menu in the currently 
active window. 

The menu, may be longer or shorter than the actual window. 

Input: Menu - A pointer to a record with the following format: 

Bytes 0-1: An integer giving the number of string 
vari abl es 

Bytes 2-n: A series of String variables. 
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Output: The -function returns the index (1 relative) o-f the item 
selected. A zero is returned if the ESC key is pressed 

J 

Var Menu_Count: •""Integer; 

Menu_Item:"'Long_String; 

Menu_Off set : Integer Absolute Menu_Item; 

Window_Size, I ,J,Key: Integer; 

Done: Boolean; 

Procedure GoUp; 

■CThis procedure moves up to the prior item in the menu} 

Begin 

Menu_Of f set : =Menu_Off set-Length (Menu_Item A ) -1 ; 

I : =1-1 ; 

If I < Acti ve_Wi ndow'\ Menu_TopY then 
Begin 

GotoXY (1,1); 

InsLine: 

Write (Menu_Item A ) ; 

Acti ve_Window" . Menu_TopY : =1 ; 

End; 

End; [of GoUp} 

Procedure GoDown; 

[This procedure moves down to the next item in the menu} 

Begin 

Menu_Of f set: =Menu_Of f set+Length (Menu_Item A ) +1 ; 

I s = 1 + 1 ; 

If I = Active_Window A .Menu_TopY+Window_Size then 
Beg l n 

GotoXY (1,1); 

Del Li ne; 

GotoXY ( 1 , Window_Size) ; 

Write (Menu_ Item") ; 

Acti ve_Wi ndow'\ Menu_TopY: =Acti ve_Window \ Menu_TopY+l ; 

End: 

End; [of GoUp) 

Procedure GoHome; 

[This procedure positions the cursor in the home position) 
Begin 

While I > 1 do 
GoUp ; 

End; [of GoHome) 

Procedure GoEnd; 

•[This procedure positions the cursor in the end position) 
Begin 
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While I < Menu_Count do 
GoDown ; 

End; Cof GoEnd} 

Procedure Set_Hi ghl i ghts; 

Begin 

With Acti ve_Wi ndow*- do 
Begin 

I-f I = Menu_ Index then 
Begin 

Textcol or (Foreground shr 4); 
Textbackground (Foreground and 7); 
End 

else i-f I = Abs (Menu_Index ) then 
Begin 

Textcol or (B1 ue) ; 

TextBackground (Black) ; 

End 
el se 



Begin 

Textcol or (Foreground and 7); 

TextBackgrou.nd (Foreground shr 4); 

End; 

End; 

End; -Co-f Set_Hi ghl i ghts> 

Begin 

Menu_Count ; =Addr (Menu) ; 

Men u_ Item: =Ptr (Seg (Menu) , Of s (Menu) +2) ; 

Window_Size: =Acti ve_Wi ndow'\ Y2-Active_Window'\ Y 1 — 1 ; 
I-f Acti ve_Window"". Menu._ Index <= 0 then 
Beg i n 
Cl rScr ; 

Acti ve_Wi ndow'\ Menu_TopY: =1 : 

For I:=l to Min (Menu_Count A ,Window_Size) do 
Begin 

GotoXY (1,1); 

Set_Hi ghl i ghts; 

Wr i te ( Menu_ I tern - ' - ) ; 

Menu_Cf f set : =Menu_Of f set+Length (Menu_I tem A ) +1 ; 
End ; 

I-f Window_Size = 1 then 
Bui 1 d_Borders (Double) ; 

End; 

Menu_Item: =Ptr (Seg (Menu) , Of s (Menu) +2) ; 
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For I:=l to Acti ve_Wi ndow-"’. Menu_Index-l do 

Menu_0f f set: =Menu_0f f set+Length (Menu_Item' s ‘) +1 ; 

I : =Max (Acti ve_Wi ndow'" - . Menu_Index , 1 ) ; 

Acti ve_Wi ndow - '". Menu_ Index : =Mi n (Acti ve_Wi ndow - '". Menu_Index , 0) ; 

Done: =Fal se; 

Wri te_Status( 'Choose item using the arrow keys "''X ' S< ,/V Y' 

+ #179' Press ESC to abort '+ 

#179' Press '"'•Q#217' when done ' foreground shl 4); 

Repeat Begin 

TextCol or (Acti ve_Wi ndow - '". Foreground shr 4) ; 

TextBackground (Acti ve_Wi ndow". Foreground and 7); 

GotoXY ( 1 , 1 -Acti ve_Window'\ Menu_TopY+l ) ; 

Wr i te (Menu_Item") ; 

Set_Hi ghl i ghts; 

GotoXY ( 1 , 1-Acti ve_Window"\ Menu_TopY+l ) ; 

Cursor_Si ze (Cursor _Invi sibl e,Mono) ; 

Key: =Keyin (True) ; 

Wri te (Men li_I tern - ' ) ; 

Case Lo(Key) of 

0: Case Hi (Key) of 

72: If I > 1 then 

GoLIp 

el se 

GoEnd; 

80: If I < Menu_Count"" then 

GoDown 

el se 

GoHome; 

73: For J:=l to Window_Size do 

If I >1 then 
GoUp ; 

81: For J:=l to Window_Size do 

If I < Menu fount’"' then 
GoDown ; 

71: GoHome; 

79: GoEnd; 

Else Beep (100); 

End; {of case} 

13: Begin 

Process_Window_Menu: =1 ; 

Done: =True; 

End ; 
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27: Begin 

F'rocess_Wi ndow_Menu: =0; 

Done: =True; 

End; 

Else Beep (100); 

End; {of case} 

End 

Until Done; 

With Acti ve_Wi ndow x ' do 
Begin 

Menu_ Index : =1 ; 

TextCol or (Foreground and 7); 

TextBackground (Foreground shr 4); 

End ; 

Wr i te_Status ( * ' , Foreground ) ; 

Cu.rsor_Size(Cursor_Smal 1 ,Mono) ; 

End; {of Process_Wi ndow_Menu} 

Procedure Ini t_Window_Inf o; 

{This procedure initializes all the of data used by the 
windowing routines} 

Var Regs: Regi sters; 

Begin 

Intr (Til ,Regs) ; 

Mono: = (Lo (Regs. AX) and $30) = $30; 

If Mono then 

Screen : =F'tr ( $B000 , 0) 
el se 

Screen :=F'tr ($B800,0) ; 

Acti ve_Wi ndow: =Ni 1 ; 

Screen_Temp: =Screen; 

Wi ndow_Fi xed_F‘art : =Si zeof (Window_Control _B1 ock) 

- Sizeof (Screen_Block) ; 

If (MemAvail < 0) or (MemAvail > Si zeof (Screen_Array ) +100) then 
{ Changed per upgrade to accomodate TP 4.0 MemAvail 3 
New (Screen_New) 

el se 

Screen_New: =Ni 1 ; 

Wi ndow_Count : =0; 

End; {of Ini t_Window_Inf o} 

BEGIN 
END . 
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APPENDIX Z 



SOURCE LISTING FOR UNIT XMODM 



(*******************************************************************) 



(*■*** XMODM. PAS ***■*) 
(*■*** This is the unit that abstracts all packet and -file ***■*) 
(**■** transfers for the Xmodem protocol . The interface is ***-*) 
(•**** derived from the Turbocom.com program in the first **■**) 
(**•** reference, however , the implementation has been rebuilt ***•*) 
(***■* for command and data transfer from the second source. ***■*) 
(■**** **■**) 
(#**# References: Edwards, C. C. , Advanced Techniques in Turbo *■***) 
(■**** Pascal , pp. 220-275, Sybex , Inc., 1987 *■***) 
(+*** *•***) 
(*■*** Krantz, D. , "Christensen Protocols in C," **•**) 
(*■*** Dr. Dobb's Journal, v. 10, no. 6, pp. 66-89, **•**) 
(**** June 1985. ****) 
(***•* ****■) 
(***+ Modified by Nelson Arc ***•*) 
(*•*** *###) 
(**■** Last Modification: Sep 89 #**#) 



(*******************************************************************) 



UNIT Xmodm; 
INTERFACE 



USES Miscpack, General , Nndow, Data.com, Support, Crt; 



{ 13 Jun 89 - changed status variable to enumerated data, type for 

clarity changed Send_Record, Recei ve_Record to 
independant procedures (callable by outside processes) 

15 Jun 89 - eliminated global variables, moved formal declarations 
for command packet building blocks into Interface 
section 



22 Jul 89 - added Respond_by_f i 1 e 

28 Jul 89 - added a variable to control transfer monitor windows 

12 Aug 89 - extended variable Moni tor_transf ers to include the 
Update_status and the monitor window 

24 Aug 89 - gated ReadAux and WriteAux to show only data characters 
changed Respond_by_f i 1 e to function to obtain status 



broke long resync problem with Command_Xfer syncing on 
CAN character from master and resetting after 10 block 
errors > 

(******************** Start Edwards Excerpt ********************) 
CONST 

CEE = $43; 

TYPE 



Rx 


_sync, 


r 


Waiting for sync 


h 

J 


Rx 


_done , 


r 

l 


completed 


1 

J 


Rx 


_ACK , 


r 

\ 


Good Rx , within retrymax 


"k 

J 


Rx 


_ol d_ACK , 


r 

V 


Good Rx , old block 


\ 


Rx 


_E0T , 


r 

L 


Good Rx , EOT char 


*k 

J 


Rx 


_ junk , 


r 

\ 


Garbage on the line 


n 

J 


Rx 


_ti meout , 


,r 


nothing heard 


h 

J 


Rx 


_erro r s, 


r 

L 


Bad Rx , retrymax exceeded 


j' 


Rx 


_1 ost_bl ock , 


f 

L 


Bad Rx , out of sync 


■k 

J 


Rx 


_NAK, 


r 

"l 


Bad Rx , NAK sent 


\ 

J 


Rx 


_CAN , 


jr 


Good Rx , CAN char 


\ 

J 


Rx 


_keypressed , 


r 

L 


Key pressed detected 


-k 

S 


Tx 


_=yn C , 


r 

\ 


Waiting for sync 


*k 

S 


Tx 


done , 


r 

\ 


completed 


*k 

S 


Tx 


_ACK , 


r 


Good Tx, within retrymax 


J 


Tx 


CEE sync, 


f 


Good Tx, CRC sync rxd 


\ 

J 


Tx 


_E0T , 


r 


Good Rx , EOT char 




Tx 


_ti meout , 


.r 


nothing heard 


■k 

J 


Tx 


_ errors , 


,r 

L 


Bad Tx, retrymax exceeded 


*k 


Tx 


_NAK_sync , 


r 

V. 


Good Tx, cksum sync rxd 


J’ 


T>. 

1 


_NAK , 


r 

*. 


Bad Tx, NAK received 


\ 

J 


Tx 


-CAN , 


r 

\ 


Bad Rx , CAN char received 


• i 

J 


1 X 


_Junk , 


\ 


Trash on the receive line 


■k. 

J 


Tx 


_ key pressed ) 


; C 


Keypressed detected 


•» 

J 



VAR Suppress_ECT , 

Suppress_CAN, 

i’loni tor_Transfer s : boolean; 

FUNCTION Sync_Receive ( seconds : integer; 

sync_character : char ) : result; 
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FUNCTION Recei ve_Record ( VAR Bu-f : Buffer; blocksize : word; 

seconds : word; expected_t<l ock : word; 
VAR errors : byte ) : result; 

FUNCTION Sync_Send ( seconds : word ) : result; 

FUNCTION Send_Record ( VAR Bu-f : Buffer; blocksize : word; 

seconds : word; block : byte; 

VAR errors : byte ) : result; 

PROCEDURE Send_EOT ( VAR status : result ); 

PROCEDURE Send_CAN; 

PROCEDURE Transf er_Fi 1 e ( Send : Boolean ); 

Function Command_Xfer (Send : Bool ean; VAR buf : buffer; 

BlockSize: Integer) : result; 



FUNCTION Respond_by_f i le < Response : pathstring ) : result; 
Procedure Send_String ( S : String ); 

Function Get_response ( ElcckSize: Integer ) : result; 
Procedure string_to_buf < s : string; VAR buf : buffer ); 



•C Converts a. string into an Xmodem buffer } 
Function buf _to_stri ng ( VAR buf : buffer ) 
{ Converts an Xmodem buffer into a string > 
IMPLEMENTATION 



string 12B; 



CONST timeout = 256; 
Retrymax = 10; 



TYPE 

Xmodem_Frame = ARRAY Cl- - 4 D of Char; 
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Const 



Xmodem_Status: Array 
' Rx_sync 
'Rx_done 
' Rx_ACK 
' Rx_ol d_ACK 
' Rx_EOT 
' Rx_ junk 
' Rx_ti meout 
' Rx_errors 
'Rx_lost_block 
' Rx_NAK " 

' Rx_CAN 

' Rx_keypressed 
' Tx_sync 
' Tx_done 
' Tx_ACK 
' Tx_CEE_sync 
' Tx_E0T 
' Tx_ti meout 
' Tx_errors 
' Tx_NAK_sync 
' Tx_NAK 
' Tx_CAN 
' Tx_Junk , 

' Tx_ key pressed 



[Rx_sync. . Tx_keypressed] of StringC17] 
{ Waiting -for sync } 

', { completed } 

', { Good Rx , within retrymax 3- 
{ Good Rx , old block } 

' , { Good Rx , EOT char > 

{ Garbage on the line 3- 

{ nothing heard 3- 

{ Bad Rx , retrymax exceeded 3- 
' , { Bad Rx , out o-f sync 3- 

' , {Bad Rx , NAK sent > 

' , { Good Rx , CAN char } 

' , { Keypressed detected 3- 

', { Waiting -for sync 3- 

{ completed } 

{ Good Tx, within retrymax 3- 
C Good Tx, CRC sync rxd 1 
C Good Rx , EOT char 3- 

{ nothing heard > 

{ Bad Tx, retrymax exceeded } 

', C Good Tx, cksum sync rxd } 

', {-Bad Tx, NAK received } 

', { Bad Rx , CAN char received > 

{ Trash on the receive line > 
');{ Keypressed detected } 



( 



VAR 

CRC : Boolean; 

X-fer_File : File; 

St at us _ I D , Mom tor_ID: Byte; 

Moni tor_Fi 1 e: Fi 1 e of Char; 

buffr ; buffer; 

moni tor _qate : boolean; 

PROCEDURE str i ng_to_buf ( s : string; VAR buf : buffer ); 

{ Converts a string into an Xmodem buffer > 

VAR index : byte; 

BEGIN 

FOR index := 1 TO Length ( s ) DO 
buf [ index 3 := s C index 3; 

(* Reprinted with extensive modifications from Advanced Techniques in 
Turbo Pascal by Charles Edwards, by permission of Sybex , Inc. 
Copyright 1987 Sybex, Inc. All rights reserved. 
•*****•*■*•**■**■*•**•£****•**■> Continue Edwards Excerpt *********♦**■>!■■*•■*■*#***) 



(******************** Continue Edwards Excerpt ********************) 

FOR index := Length ( s ) + 1 TO 128 DO 
but C index ] := Char ( NUL ); 

END; 



FUNCTION but _to_stri ng ( VAR but : butter ) : string 128; 

C Converts an Xmodem butter into a string > 

CONST SPACE = ' '; 

TILDE = 

VAR s : stringl28; 
index : byte; 

BEGIN 

c z c ~ / / ■ 

o i 

FOR index := 1 TO 128 DO 

IF but C index 3 IN C SPACE .. TILDE 3 THEN 
s := s + but [index] 

ELSE s := s + SPACE; 
but_to_st>-ing := s; 

END: 

FUNCTION ReadAux C seconds : word ) : word; 

VAR I : word; 

Ch : char; 



BEGIN 

I:=seconds * 1000; 

While ((not RS232_Avail) and (I > 0) AND (NOT Keypressed)) do BEGIN 
Del ay ( 1 ) ; 

DEC (I) ; 

End ; 

It RS232_Ava.il then BEGIN 
Ch := RS232_In : 

It ( Monitor_ID > 0 ) AND ( monitor_gate ) then Begin 
TextColor (Foreground) ; 

Tex tBackground (Background ) ; 

Case Byte(Ch) ot 

NUL , BEL , BS , LF : { suppress }j 
£20 . . £FF : Write ( Ch ); 

CR : Writeln; 

(* Reprinted with extensive moditications trom Advanced Techniques in 
Turbo Pascal by Charles Edwards, by permission ot Sybex , Inc. 
Copyright 1987 Sybex, Inc. All rights reserved. 
***********+********* Continue Edwards Excerpt ********************) 



247 



(******************** Continue Edwards Excerpt ********************) 



End; Cof Case} 

Write (Moni tor_Fi 1 e , Ch ) ; 

End; 

ReadAux : = ORD (Ch ) ; 

End 
el se 

ReadAux := Timeout; 

End; Co-f ReadAux} 

Procedure Wri teAux (Ch: Char ) ; 

Begin 

RS232_0ut (Ch) ; 

I-f ( Monitor_ID > 0 ) AND ( monitor_gate ) then 
Begin 

Text Col or (Background) ; 

TextBackground (Foreground) ; 

Case Byte(Ch) of 

NUL , BEL , BS , LF : { suppress }; 

$20 IFF : Write ( Ch ) ; 

CR : Wri tel n; 

End; -Co-f Case} 

Wri te (Monitor_Fi le,Ch) ; 

End; {begin} 

End; •( o-f Wr i teAux } 

Procedure Send_String ( S : String ); 

VAR index : word; 

BEGIN 

IF Length ( S ) > 0 THEN BEGIN 

FOR index := 1 TO Length ( S ) DO 
RS232_0ut ( S C index 3 ); 

RS232_0ut ( Char (CR) ); 

END; 



FUNCTION Recei ve_Record ( VAR But : Buffer; biocksize : word; 

seconds : word; expected_bl ock : word; 
VAR errors : byte ) : result; 
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VAR 

temp : word; 

I : word; 
checksum : byte; 

Frame : Xmodem_f rame; 

Ch : Char; 

BEGIN 

Ch : =Char (NUL) ; 
errors := 0; 

CASE ReadAux ( seconds ) OF 
SOH : BEGIN 

monitor_gate := -false; -C turn o-f-f monitor display > 

For I : =2 to 3 do 

Frame [I] := Char (Lo( ReadAux ( seconds ))); 

Checksum: =0; 

monitor_gate := true; -C turn on monitor display 3- 
For I:=l to BlockSise do 
Begin 

But Cl] := Char (Lo ( ReadAux (1))); 

Checksums (Byte (Checksum) +Byte (Bu-f [ 1 3 ) > MOD 256; 

End ; 

monitor_gate := -false; -I turn o-f-f monitor display 3- 
Frame [4] : = Char (Lo (ReadAux ( 1 ))); 

1-f (Byte (Frame C23 ) <> (255-Byte (Frame [33 )) ) or 
(Char (Checksum) <> FrameC43) then 
Begin {Error on da.ta.comm line} 

INC (Errors) ; 

Wri teAux (Char (NAK) ) ; 

Recei ve_Record := Rx_NAK; 

End 

else it Byte (FrameC23 ) = expected_bl ock then 
Begin {Block numbers match} 

Errors: =0; 

Recei ve_Record := Rx_ACK; 

Wri teAux (Char (ACK) ) ; 

End 

else if Byte (FrameC23 ) = (expected_bl ock- 1 ) then begin 
Recei ve_Record := Rx_olti_AC-K; 

INC ( Errors ) ; 

Wri teAux (Char (ACK) ) {Old block resent... ACK it} 

END 
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el se 

Begin CWe lost a block} 

Recei ve_Record := Rx_l ost_bl ock; 
End ; 

End; tSOH> 

CAN : Recei ve_record := Rx_CAN; 

Timeout : Recei ve_record := Rx_timeout; 

EOT : Recei ve_record := Rx_E0T; 



else Recei ve_record := Rx_ju.nk; 
END; { OF CASE } 



END; {Recei ve_Record> 

PROCEDURE Set_Buffer ( VAR bu-f : buffer; blocksize : word ); 



VAR 

Numreati : word; 
index : word; 



BEGIN 

B1 ockRead (Xfer _Fi 1 e, bu-f, blocksize, Numread); 

IF Numread < blocksize THEN 
For index := Numread + 1 to blocksize DO 
Bu-f [ i ndex 3 ; = CHAR (ORD (0) ) ; 

END; 

FUNCTION Send_Re-ord ( VAR Bu-f : Bu-f-fer; blocksize : word; 

seconds : word; block : byte; 
VAR errors : byte ) : result; 



VAR 

Numread , 

Numwritten : word; 
irdex : word; 
checksum : byte; 

Ch ; CHAR; 
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ending_char : char; 
quit : boolean; 



BEGIN 

monitor_gate := -false; C turn o-f-f monitor display 3- 
Errors := 0; 
checksum := 0; 

FOR index := 1 to blocksize DO 

checksum := (checksum + ORD ( Buf [index] )) MOD 256; 
Begin 

IF blocksize = 128 THEN WriteAux ( Char ( SOH ) ) 
ELSE WriteAux ( Char ( SOH ));; 

WriteAux ( Char ( Block ) ); 

WriteAux ( Char ( 255-Block ) ); 

monitor_gate ;= true; { turn on monitor display 3- 
For index :=1 to blocksize DO 
Writ eAux ( Buf C i n d ex ] ) ; 

monitor_gate := -false; C turn o-f-f monitor display 3- 
WriteAux ( Char ( checksum )); 

F'urgeLi ne; 

CASE ReadAux ( seconds ) OF 



ACK 

NAK 

CAN : 
T i meout : 



Send_Record := 
Send_Record := 
Send_Record := 
Send Record := 



Tx_ACK; 

Tx_NAK; 

Tx_CAN; 



Tx_ti meout ; 



ELSE Send_Record ; = Tx_Junk; 



End; -(easel- 



IF Keypressed THEN Send_Record := Tx_keypressed; 
END; {repeat!- 

End ; 

FUNCTION Sync_Receive ( seconds : integer; 

sync_character : char ) : result; 
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VAR 

I, 

tries : integer; 



BEGIN 

F'urgeLi ne; 

Wri teAux (sync_character ) ; C try immediately } 

tries := TRUNC ( seconds /5 + 0.6 ); {convert seconds to cycles } 
WHILE ((not RS232_Avai 1 ) and ( tries > 0 ) 
and ( NOT keypressed ) ) do BEGIN 
Wri teAux (sync_character) ; 

I := 1000; 

While ((not RS232_Avai 1 ) and (I > 0 ) and ( NOT keypressed )) do 
Begin; 

Del ay ( 5 ); C 10 ms * 1000 cycles = 10 seconds } 

DEC ( I ) ; ' 

End ; 

DEC (tries ); 

END; 

IF Keypressed THEN 

Sync_Receive : = Rx_keypressed 
ELSE IF RS232_Avai 1 THEN BEGIN 

IF RS232_peek <> Char ( CAN ) THEN Sync_Receive := Rx_sync 
ELSE Sync_Receive := Rx_CAN; 

END 

ELSE Sync_Receive : = Rx_timeout: 

END; 

FUNCTION Sync_Send ( seconds : word ) : result; 

VAR 

quit : boolean; 

Begin 

quit ; = FALSE: 

Repeat 

F'urgeLi ne; 
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CASE ReadAux ( seconds ) OF 



CEE 



: BEGIN { checksum handshake } 
CRC := TRUE; 

Sync_Send := Tx_CEE_sync; 
quit := TRUE; 

END; 



NAK 



: BEGIN { checksum handshake } 
CRC := FALSE; 

Sync_Send := Tx_NAK_sync; 
quit := TRUE: 

END; 



T i meout 



BEGIN 

Sync_Send := Tx_ti meout; 
quit ;= TRUE; 

END; 



CAN 



BEGIN 

Sync_send := Tx_CAN; 
quit := true; 

END; 



ELSE 



End: {CASE } 



BEGIN 

Sync_send := Tx_junk; {Garbage on the line} 
END; 



UNTIL ( quit ) OR Keypressed: 

IF keypressed THEN Sync_Send := Tx_keypressed; 



END; 



PROCEDURE Send EOT ( VAR status : result ); 



VAR errors ; byte; 



BEGIN 

IF ( Suppress.EOT > THEN 
status := Tx_done 
ELSE BEGIN 
Errors : = 0; 

REPEAT 

WriteAux ( Char ( EOT )); 

INC (Errors) ; 

UNTIL (ReadAux ( 10 ) = ORD ( ACK ) ) OR ( Errors = Retrymax >; 
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IF Errors = Retrymax THEN 
Status := Tx_timeout C timeout on EOT } 

ELSE status := Tx_done; 

END 

END; 

PROCEDURE Send_CAN; 

BEGIN 

IF NOT Suppress_CAN THEN BEGIN 
WriteAux < char (CAN)); 

WriteAux ( char (CAN)); 

END; 

END; 

Function Xmodem_Xfer (Send: Boolean; BlockSize: Integer) : result; 
[This procedure performs an Xmodem file transfer 

Input: Send - True to send a file 

False to receive a file 

BlockSize - The block size to use for the file transfer > 
VAR ending_cha.r : char; 

Xf er_Type: StrinqC6]; 
done , 

Abort : Bool ean ; 

Status : result; 

Ch : Char; 

Errors, 

Settings, 

Block_Cou.nt : bvte; 

I, 

block , 
i ndex , 

B1 ocks , 

Numread , 

Error_Count : word; 

Byte_Count: Longint; 
bu.f ; buffer; 

Procedure Update_Status; 

Var I : Integer; 
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Begin 

I-f Monitor_ID > 0 then begin 
I-f Get_Wi ndow (Status_ID) then; 

For I: =2 to 5 do Begin 
GotoXY (11,1) ; 

ClrEol ; 

Case I o-f 

2: Write(Xmodem_Status[Status3) ; 

3: Wri te (Blocks) ; 

4: Wri te (Byte_Count ) ; 

5: Wr i te (Error_Count ) ; 

End; Cof Case} 

End: 

If 6et_Window (Monitor_ID) then; 

END; 

End; Cof Update_Status} 



Begin 

If Moni tor_Transf ers THEN 
Begin 

If Open_Wi ndow ( 1 , 8 , 80, 24 , FI ag_Borders , 'Moni tor Window') = 0 then 
Cl rScr ; 

Wri tel n ( 'Opening monitor file'); 

Moni tor_ID: =Acti ve_Wi ndow'"-. ID; 

Assi gn (Moni tor _Fi 1 e , 'MONITOR. DAT ' ) ; 

Rewri te (Moni tor _Fi 1 e) ; 

End 
ei se 
Begin 

Moni tor_ID: =0; 

End ; 

Xf er_Type: = ' Xmodem ' ; 

•f Open the Status Window } 

If 0pen_Wi ndow (40, 1 , 80 ,7 ,F1 ag_Borders , Xf er_Type) = 0 then; 
Status_ID: =Acti ve_Wi ndow''-. ID; 

ClrScr; 

For I : = 1 to 5 do 
Begin 

GotoXY (1, 1) ; 
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Case I of 



1: 


Wr i te ( ' Name 


■ # 


2 ; 


Write ( 'Status 


: ' > 


y % . 


Wr i te ( ' B1 ocks 


: ' > 


4: 


Write ( 'Bytes 


: ' ) 


5: 


Wr i te ( ' Errors 


: ' ) 


End; 


{of Case} 





End; 

RS_Eight_Bits; { make sure we can pass eight data bits 3 
B1 ocks: =0; 

Byte_Count : =0; 

Errors: =0; 

Error_Count : =0; 

B1 ock_Count : =1 ; 

Abort : =Fal se; 

If Send then 

Begin {Send the file} 

Status := Tx_sync; { Holding for start 3 
Update_status; 

Status := Sync_Send ( 10 ); 

If Status = Tx_Key pressed then Ch := ReadKey; 

Update_statu.s; 

IF Status = T>!_Keypressed THEN 
•C keep status same 3 

ELSE IF NOT (Status IN CTx_CEE_sync , Tx_NAK_sync 3 ) THEN BEGIN 
Writeln ('No acknowledgement from other side'); 

{Status := Tx_ti meout ; 3 
Update_Status; 

END 

ELSE 

BEGIN 

done ;= false; 

While not (Eof ( Xf er_Fi 1 e) ) AND NOT (done) do 
Begin 

Upda.te_Status; 

Get_Buffer ( but , blocksize ); 

status := Send_Record ( Buf , Blocksize, 10, block_count, 

errors ) ; 
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CASE Status OF 
T x _ACK : BEGIN 

Error_Count := Error_Count + Errors; 

INC (Blocks) ; 

Byte_Count : =Byte_Count+Bl ockSi :e; 
INC(Block_Count) ; 

END; 

Tx_NAK : BEGIN 

INC (Error_count ) ; 

If Error_count >= retrymax then done := true; 
END; 

TX_timeout : BEGIN 

INC (Error_count ) ; 

It Error_count >= retrymax then 
done := true; 

End; 

Tx_CAN, 

Tx_keypressed : BEGIN 

done := TRUE; 

END; 

ELSE BEGIN 

INC (Error_count ) ; 

If Error_count >= retrymax then 
Begin 

done := true; 

Status := Tx_errors; 

End; 

END; 

END; 

upda.te_Sta.tus; 

End; {WHILE} 

While KeyPressed do 
Begin 

Ch := Read Key; 

End; 

END; 

If Status = TX_ACK then Send_E0T ( status ) 

ELSE Send_CAN; 

END 
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el se 

Begin {Receive file} 

Status: =Rx_sync; 

Update_status; 

Status := Sync_Receive ( 60, Char(NAK) ); 
CASE Status OF 

Rx_KeyPressed : Begin 

Abort := TRUE; 
Update_status; 

Ch := ReadKey; 

End; 



Rx_ti meout , 

Rx_CAN : BEGIN 

Abort := TRUE; 

Update_Status; 

END; 

ELSE Repeat 

Status := Recei ve_Record ( Buf , blocksize, 1, 

Bloc k _c oun t , er r or s ) ; 

CASE Status OF 
Rx_ACK : BEGIN 

INC (Blocks) ; 

Byte_Count : =Byte_Count+Bl ockSi ze; 

INC ( Block.Count ); 

B1 ockWr i te (Xf er_Fi 1 e , Buf , blocksize ); 
END; 

Rx _ j un k , 

Rx_ti meout , 

R>;_01 d_ACK : BEGIN 

INC ( Error_Count ) ; 

IF Error_Cou.nt > retrymax THEN 
abort := TRUE; 

END; 



Rx_E0T : BEGIN 

Status := Rx_EDT; 

END; 

ELSE BEGIN 

Error_Count := Error_Count + Errors; 

IF Error_Count > retrymax THEN abort := TRUE; 

END; 

END; {CASED 
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Update_Status; 

If not Abort then 
While KeyF'ressed do 
Beg i n 

Ch := ReadKey; 

Abort : =True; 

Status: =Rx_keypressed ; 

End; 

Until (Status = Rx_EOT ) or Abort; 

END; C CASE } 

If not Abort then Status: =Rx_done; 

Update_Status; 

If Status <> Rx_done then 
WriteAux (Char (CAN) ) 
else 

Wri teAux (Char (ACK) ) ; 

End ; 

Xmodem_Xf er := status; 

Close (Xf er_Fi le) ; 

If (not Send) and (Abort) then 
Erase (Xf er_Fi le) ; 

■C Close the Status window > 

RS_Restore ( Current_COM ); C restore comport settings to whatever 

was selected before } 

If Close_Window then; 

I f Mon i t or _ I D > 0 then 
Beg i n 

If CIose_Window then; C Close the monitor window if open } 
Textcolor (Foreground) ; 

Textbackground (Background) ; 

Cl ose (Moni tor_Fi le) ; 

Monitor_ID := 0; 

End ; 

End; (of Xmodem_Xfer} 



Function Command_Xf er (Send : Bool ean; VAR buf : buffer; 

BlockSize: Integer ) : result; 

{This procedure performs an command /response exchange 

Input: Send - True to send a buffer 

False to receive buffer 
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BlockSize - The block size to use -for the transfer 

n 

J 



VAR ending_char : char; 

Xf er_Type: StringCIS]; 
done , 

Abort : Bool ean; 

Status : result; 

Ch : Char; 

Errors , 

Settings, 

Biock_Count : byte; 

I, 

i ndex , 

Blocks, 

Numread , 

Error_Count : word; 

Byte_Count: Longint; 

F'r ocedur e Up d at e_£t at us ; 

Var I ; Integer; 

Begin 

H Monitor_ID > 0 then begin 
It Bet_Wi ndow (Status_ID) then; 

For I; =2 to 5 do Begin 
GotoXY (11,1); 

CirEol ; 

Case I of 

2: Write (XmodeiTi_StatusCStatus3) ; 

3: Write (B1 ocks) ; 

4: Write (Byte_Count) ; 

5; Write (Error_Count) ; 

End; Cof Case} 

End ; 

If Get_Wi ndow (Moni tor_ID) then; 

END; 

End; -Cof Update_Statu.s} 



If Moni tor_Transf ers THEN 
Begin 

If Open_Wi ndow ( 1 , 8 , 80 , 24 , FI ag_Borders , ' Moni tor Window') = 0 then 
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Cl rScr ; 

Wr i tel n ( ' Openi ng monitor -file'),* 

Moni tor_ID: =Acti ve_Wi ndow - " - . ID; 

Assi gn (Moni tor_Fi 1 e , ' MONITOR.DAT ' ) ; 

Rewrite (Moni tor_Fi 1 e) ; 

Xfer_Type: =' Command Transfer'; 

If Open_Wi ndow (40, 1 , 80 , 7 , FI ag_Borders , Xf er_Type) = 0 then; 
Statu.s_ID: =Acti ve_Wi ndow A . ID; 

Cl rScr ; 

For I:=l to 5 do Begin 
GotoXY (1,1); 

Case I of 

1 : Wr i t e ( ' ' ) ; 

2: Wr i te (' Status 

3: Wri te (' Blocks 

4: Write ( 'Bytes : ' ) ; 

5: Write ( 'Errors :'); 

End; {of Case} 

End; 

End 
e 1 s t 

Moni tor_ID: =0; 

RS_Ei ght_Bi ts; { make sure we can pass eight data bits )• 

Blocks := 0; 

Errors := 0; 

Byte_C-ount : =0; 

Error_Count : =0; 

B1 ock_Count : =1 ; 

Abort ; =Fal se; 

If Send then 

Begin {Send the command} 

Status := Tx_sync; { Holding for start } 

Update_status; 

Status := Sync_Send ( 10 ); 

If Status = Tx_Keypressed then Ch := ReadKey; 

Upda.te_status; 

IF Status = Tx_Key pressed THEN 
{ keep status same } 

ELSE IF NOT (Status IN CTx_CEE_sync , Tx_NAK_sync] ) THEN BEGIN 
Writeln ('No acknowledgement from other side'); 

{Status := Tx_timeout;} 

Update_Status; 

END 
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ELSE 

BEGIN 

done := -false; 

REPEAT 

Update_Status; 
status := Send_Record 

CASE Status DF 



Buf , Blocksise, 10, block_count, 
errors ) ; 



T x _ACK : BEGIN 

Error_Count := Error_Count + Errors; 
Byte_Count : =Byte_Count+Bl ockSi ze; 
done := true; 

END; 

Tx_NAK ; BEGIN 

INC (Error_count ) ; 

If Error_count >= retrymax then done := true; 
END; 

TX_timeout : BEGIN 

INC(Error_count) ; 

If Error_cc<unt >= retrymax then 
done := true; 

End; 

Tx_CAN , 

Tx_keypressed i BEGIN 

Wri tel n ( ' abort! ng ' ) ; 
done := TRUE; 

END; 



ELSE BEGIN 

INC (Error_count) ; 

If Error_count >= retrymax then 
Beg! n 

done := true; 

Status := Tx_errors; 

End ; 

END; 

END; -CCa.se > 
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UNTIL done; 

While KeyF’ressed do 
Begin 

Ch := ReadKey; 

End; 

END; 

Update_status; 

If Status = TX_ACK then BEGIN 
Send_EOT ( status ) ; 
status := Tx_done; 

END 

ELSE Send_CAN; 

END 
el se 

Begin [Receive -file! 

Status; =Rx_sync; 

Update_status; 

Status := Sync_Receive ( 60, Char(NAK) ); 

CASE Status' OF 

Rx_KeyF'ressed : BEGIN 

Abort := TRUE; 

Update_status; 

Ch ;= ReadKey; 

End ; 

Rx_ti meout , 

Rx_CAN : BEGIN 

Abort := TRUE; 

Update_Sta.tus; 

END; 

ELSE Repeat 

Status := Recei ve_Record ( Buf , blocksize. 10, 

Block_count, errors ); 

CASE Status OF 

Rx_ACK : BEGIN 

Byte_Count : =Byte_Count+Bl ockSize; 
END; 

Rx_ junk , 

Rx_ti meout , 

Rx_01 d_ACK : BEGIN 

INC ( Error_Count ) ; 
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IF Error_Count > retrymax THEN 
abort := TRUE; 

END; 


Rx_E0T : 


BEGIN 

Status := Rx_E0T; 
END; 


ELSE 


BEGIN 




Error_Count := Error_Count + Errors 




IF Error_Count > retrymax THEN 




abort := TRUE; 




END; 


END; {CASE} 
Update_Status; 





It not Abort then 
While KeyF'ressed do 
Begin 

Ch := Read Key; 

Abort : =True; 

Status : =Rx_keypressed ; 

End; 

Until (Status = Rx_E0T ) or Abort; 

END; C CASE } 

It not Abort then Status: =Rx_done; 

Update_Status; 

I-f Status <> Rx_done then 
Wri teAux (Char (CAN) ) 

0 1 0 0 

Wri teAux (Char (ACK) ) ; 
nd; { Receive } 
ommand_Xfer := status; 

{ Close the status window } 

•C restore comport settings to whatever was selected before > 
RS_Restore ( Current_COM ) ; 

If Monitor_ID > 0 then C Close the monitor window } 

Begin 

If Close_Window then; 

If Close_Window then; 

Tex tool or (Foreground) ; 

Textbackground (Background ) ; 

Close (Noni tor_Fi 1 e) ; 

Monitor_ID := 0; 

(+ Reprinted with extensive modifications from Advanced Techniques in 
Turbo Pascal by Charles Edwards, by permission of Sybex , Inc. 
Copyright 1987 Sybex, Inc. All rights reserved. 
********************* Continue Edwards Excerpt ********************) 
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(******************** Continue Edwards Excerpt ********************) 



End ; 

End; {of Command_Xf er> 



Procedure Transf er_Fi 1 e (Send: Bool ean) ; 

{This procedure initiates a file transfer 

Input: Send - True if we want to send a file 
False to receive a file 

J 

Var FileName : Long_String; 

I , J : Integer ; 

Abort: Bool ean ; 
status : result; 



Beg i n 

Abort : =Fal se; 

If Open_Window (20, 16,60, 19, FI ag_Borders , 'Name ' ) = 0 then; 
ClrScr ; 

Write ('File Name: '); 

F;eadln( FileName ); 

If Close_Window then; 

IF ( Length ( FileName ) = 0 ) or (FileName = A P> THEN 
•C do nothing } 

ELSE BEGIN 

For J:=l to Length ( FileName ) do 

FileName [J] := UpCase( FileName [J] ); 

Assign ( Xfer_File, FileName ); 

If Send then Begin 

■in-: 

Reset (Xf er_Fi le, 1); 

{£! + } 

If I0Resu.lt > 0 then Begin 
NoFile( FileName ): 

Abort: =Tru.e; 

End : 

End 

P 1 50 

Rewrite (Xfer_File, 1); 

If not Abort then status := Xmodem_Xfer ( Send, 128 ); 
END; 

End; {of Transf er_Fi 1 el 



(* Reprinted with extensive modifications from Advanced Techniques in 
Turbo Pascal by Charles Edwards, by permission of Sybex , Inc. 
Copyright 1987 Sybex, Inc. All rights reserved. 
********************** Continue Edwards Excerpt #*******#***********) 
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(******************** Continue Edwards Excerpt ********************) 
FUNCTION Respond_by_f i 1 e ( Response : pathstring ) : result; 

{This procedure provides the user a response contained in a -file 
Input: Response - the complete path specification -for the -file 

J 

CONST Send : boolean = TRUE; 

Var 

Abort : Bool ean ; 

Begin 

Abort : =Fal se; 

Assign ( Xfer_File, Response ); 

{*!-> 

Reset (Xfer_File, 1); 

•CTI+} 

If IOResu.lt > 0 then 
Begin 

NoFi le (Response) ; 

Abort : =True; 

End ; 

If not Abort then Respond_by_f i 1 e := Xmodem_Xf er ( Send, 128 ) 

ELSE Respond_by_f i 1 e := Tx_CAN; 

End; C Respond_by_f i 1 e ]• 

Function Get_response ( Bi ockSi se: Integer ) : result; 

(This procedure performs an Xmodem file transfer 

Input: Send - True to send a response 

False to receive a series of responses 

BlcckSize - The block size to use for the file transfer 

Status_ID, Monitor_ID must be seen by WriteAux, ReadAux 



VA\* ending_char : char; 

Xf er_Type: Stri ngL6 j ; 
done, 

Abo^t: Boolean; 

Status : result; 

( + Reprinted with extensive modifications from Advanced Techniques in 
Turbo Pascal by Charles Edwards, by permission of Sybex , Inc. 
Copyright 1987 Sybex, Inc. All rights reserved. 
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Ch : Char; 

Errors , 

Settings, 

Block_Count : byte; 

I, 

bloc k , 
i ndex , 

Blocks, 

Numread , 

Error_Count ; word; 

Byte_Count: Longint; 
buf : buffer; 

Display_Window_ID : byte; 

Begin 

Monitor_ID := Acti ve_Wi ndow A . ID; 

Assign ( Moni tor_Fi 1 e , 'NUL' ); 

Rewrite ( Monitor_File ); 

•C Change to current comms } 

RS_Ei ght_Bi ts; C make sure we can pass eight data bits > 

Blocks; =0; 

Byte_Count : =0; 

Errors: =0: 

Error_Count : =0; 

B1 ock_Count : =1 ; 

Abort ; =Fal se; 

Begin -[Receive file} 

Status: =Rx_sync : 

Status := Sync_Receive ( 60, Char(NAK) ); 

CASE Status OF 
R'x_KeyPressed 



Rx_ti meout , 

Rx _CAN 

ELSE Repeat 
Begin 

Status := Recei ve_Record ( Buf, blocksize, 1, 
Block_count, errors ); 



: Beg i n 

Abort := TRUE; 
Ch : = ReadKey; 
End ; 

: Abort := TRUE; 



(* Reprinted with extensive modifications from Advanced Techniques in 
Turbo Pascal by Charles Edwards, by permission of Sybex , Inc. 
Copyright 1987 Sybex, Inc. All rights reserved. 
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(******************** Continue Edwards Excerpt ********************) 



CASE Status OF 
Rx _ACK : BEGIN 

INC (Blocks) ; 

Byte_Count : =Byte_Count+Bl ockSi se; 

INC ( Block_Count ); 

END; 

Rx_ junk , 

Rx_timeout , 

Rx_01 d_ACK : BEGIN 

INC ( Error_Count ); 

IF Error_Count > retrymax THEN abort := TRUE; 
END; 

Rx_EQT : BEGIN 

Status := Rx_EOT; 

END; 

Rx _CAN : BEGIN 

abort := TRUE; 

END; 



ELSE BEGIN 

Error_Cc>unt := Error_Cou.nt + Errors; 

IF Error_Count > retrymax THEN abort := TRUE; 

END; 

END: CCASE) 

If not Abort then 
While KeyPressed do 
Begin 

Ch := ReadKey; 

Abo^t : =True; 

Status: =Rx_keypressed ; 

End; 

END { Receive > 

Until (Status = Rx_EOT ) or Abort; 

END; { CASE } 

If not Abort then Status: =Rx_done; 

If Status <> Rx_done then 
WriteAux (Char (CAN) ) 

el se 

WriteAux (Char (ACK) ) ; 

End; 

Get_Response := status; 



(* Reprinted with extensive modifications from Advanced Techniques in 
Turbo Pascal by Charles Edwards, by permission of Sybex , Inc. 
Copyright 1937 Sybex, Inc. All rights reserved. 
********************* Continue Edwards Excerpt ********************* 



(******************** Continue Edwards Excerpt ********************) 

•C restore comport settings to whatever was selected before > 
RS_Restore ( Current_COM ) ; 

If Monitor_ID > 0 then 
Begin 

Text col or (Foreground) ; 

Textbackground (Background) ; 

Close (Mon i tor _Fi 1 e) ; 

Monitor_IB := 0; 

End; 

End; C Get_response > 



BEGIN 

Suppress_EDT := FALSE; 

Suppress_CAN ; = FALSE; 

Moni tor_Transf ers := TRUE; 

monitor_gate := false; C don't display xmodem packet headers > 
END. 



(* Reprinted with extensive modifications from Advanced Techniques in 
Turbo Pascal by Charles Edwards, by permission of Sybex , Inc. 
Copyright 1987 Sybex, Inc. All rights reserved. 
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APPENDIX AA 

SOURCE LISTING FOR PROGRAM DISTRIB 



*> 

J 

(*******************************************************************) 



(**** DISTRIB. PAS ****) 
(***•* This is the main program -for the Master/Slave networked ***■*) 
(+*** computer system. The same program is used -for both the ***■*) 
(***-* Master and Slave, with the -function being selected from ***■*) 
(***•* the command line as follows: *•***) 
(**■** *•***) 
(■**** Master: Distrib Master (also allows program config •****) 
{***■* ***•*) 
(***■* Server: Distrib Server **■**) 
(**** *•***) 
(**** Reference: Edwards, C. C. , Advanced Techniques in Turbo ***■*) 
(***■* Pascal , pp. 220-275, Sybex , Inc., 1987 ■****) 
(+*** *#**) 
(**** Heavily modified from the terminal emulation program ****) 
(*•*** found in the reference. Converted to a Turbo Pascal 4.0 *•***) 
(****• program by Nelson Ard #***) 
(**■** ***•*) 
(**•** Last Modification: Sep 89 **•**) 



(***#***************************************************************) 
(* Modification history 

12 Sep 89 - Replaced local RS232 write procedure with 
DataCom. Send_Stri ng 

) 

•C$R+} -CRange checking on} 

•C$B+} {Boolean complete evaluation on) 

CTS+1- {Stack checking on} 

•CTI+} {I/O checking onl 

{$N-} {No numeric coprocessor} 

{$ M 65500,16384,65500} {Modified default stack and heap} 

Program Distrib; 

Uses 

Data.com , 

Crt , 

Dos , 

Nndow , 

Xmodm , 

Director , 

General , 
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ErrorCod , 

Support , 

Pri nter , 

Parser, Spawn, miscpack; 

(******************** Start Edwards Excerpt ********************) 
Procedure Save_Fi 1 e (D: Bool ean ) ; 

{This procedure asks the user if he wants to save a changed 
configuration If so, it writes the appropriate file 

Input D: True if saving default values 
False if saving phone file 

\ 

J 

Var Conf i gure: Fi 1 e of Byte; 

Phone: F'hone_Record ; 

J: Integer ; 

Begi n 

If 0pen_Window(50,9,67, 12,Flag_Borders, ' ' ) = 0 then; 

Cl rScr ; 

If D then 

Write ('Save defaults?') 
el se 

Write ('Save this entry?'); 

If Yes ('Save') then 
Begi n 
ClrScr; 

Write ( ' Savi ng. . . ' ) ; 

If D then 
Begin 

Assign (Conf igure, Defaults. Def aul t_Name) ; 

{*I-> 

Reset (Conf i gure) ; 

•CSI+} 

If IOResu.lt > 0 then 

NoFi 1 e (Def aul ts. Def aul t_Name) 
else 

Begin 
Cl rScr ; 

Writeln('If you want to use these parameters ' ) ; 

Write ('You must end and restart Distrib'); 

OK ( ' ' ) ; 

If Close_Window then; 

End ; 

End 

(* Reprinted with extensive modifications from Advanced Techniques in 
Turbo Pascal by Charles Edwards, by permission of Sybex , Inc. 
Copyright 19S7 Sybex, Inc. All rights reserved. 
************+******** Continue Edwards Excerpt *******#***•*********) 
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(******************** Continue Edwards Excerpt ********************) 



el se 

Begin 

C$R-3 

Assi gn (Phone_Fi 1 e , 'DISTRIB. PHN ' ) ; 

Rewrite (F’hone_File) ; 

For J:=l to F'hone_Menu"". Length do 
Begin 

Phone. Name: =Phone_Menu'"-. Names! J ] ; 

Phone. Phone_Data: =Phone_Stuf f J ] ; 

Wri te (F'hone_Fi 1 e , Phone) ; 

End ; 

Close (F'hone_Fi le) ; 

<$R+> 

End; 

End: 

If Close_Window then; 

End; Cof Save_File?. 

C$V-} 

Procedure Wri te_AUX_String ( S : STRING ); 

{This procedure writes a. string out to the currently selected COM port 
VAR index : byte; 

BEGIN 

FOR index := 1 TO Length (S) DO BEGIN 
RS232_0ut (S! index ] ) ; 

END; 

END; 

{*V+} 

Procedure Dial_Phone ( I : Integer ; Demon_Di al : Boolean) ; 

{This procedure dials a phone entry. The demon dial feature is the 
only feature of Distrib which explicitly assumes the presense of 
a Hayes or Hayes compatible modem. 

Input; I - The index into the phone array that we are to dial 

Demon_Diai - true if we are to repetitively dial until an 
answer is obtained 



Var Count : Integer ; 

S: Long_Str i ng ; 

Ch: Char ; 

{Connected ; Bool ean ; } 



(* Reprinted with extensive modifications from Advanced Techniques in 
Turbo Pascal by Charles Edwards, by permission of Sybex , Inc. 
Copyright 1987 Sybex, Inc. All rights reserved. 
********>--*-*+***-*-*+i-**'>!- Continue Edwards Excerpt ***************'*-'^***) 
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(******************** Continue Edwards Excerpt ********************) 



J : Integer; 

Time: Integer ; 
quit : boolean; 



Procedure Flush_Buf f er ; 

Var ChrChar; 

Begin 

Repeat Begin 

Ch : = RS232_In; 

I-f not RS232_Avail then Delay(200); 
End 

Until not RS232_Ava.il; 

End; Cof FI ush_Bu-f ter } 



Begin 

RS_C1 eanup ; 

With Phone_Stuf f "'■[ 1 3 do 
Begin 

RS_Ini tial i ze (Def aul ts. Default _Modem , F'hone_Baud , Phone_F‘ari ty , 
Phone_Stop , Phone_Length) ; 

Echo: =Phone_Echo; 

End : 

Last_Di al : =1 ; 

If Demon_Dial then 
Begin 

DataCom. 3end_String ( ’ ATZ '+Char (CR) ) ; 

Flush_Buf f er ; 

Del ay (1000); -(Give modem time to reset) 

DataCom, Send_Stri ng ( ' ATV1Q0E1S7='+Char (Dial _Deia.y) +Char (CR) ) : 
If Open_Window ( 15,09,65, 17 ,Flag_Borders, 'Dial ' ) = 0 then: 
CirScr; 

Wr i tel n ( ' Name : ' , Phone_Menu , ‘\ Names! 13); 

Wr i t el n ( ' Attempt : ' ) ; 

Wr i tel n ! ' ' Status ; ' ) ; 

Wri tel n ( ’ Started : ' , Bet_T i me) ; 

Wri teln ( 'Dialed at : ' ) : 

Wr i tel n ( ' El apsed : ' ) ; 

W“*i te ( ' Gpti ons : ESC to abort... any other key to cycle'); 

FI u.sh_Buf f er ; 

Count: =0; 
quit := False; 



<* Reprinted with extensive modifications from Advanced Techniques in 
Turbo Pascal by Charles Edwards, by permission of Sybex , Inc. 
Copyright 1987 Sybex, Inc, All rights reserved. 
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(******************** Continue Edwards Excerpt 



#*** ****************) 



Repeat Begin 

Count: =Count+l; 

Time: =0; 

GotoXY (12,2) ; 

Write(Count) ; 

GotoXY (12,3) ; 

ClrEol ; 

Wr i te ( ' Di al i ng ' ) ; 

GotoXY (12,5) ; 

Wr i te (Get_T i me) ; 

DataCom. Send_Str i ng (Phone_F'ref i x+Phone_Stuf f '•[ I 3 . Phone_Number 

+Cha.r (CR) ) ; 

FI ush_Bu.f f er ; 

J : =0; 

Del ay (2000); (Give time to dial the phone} 

While not (KeyPressed or RS232_Avai 1 ) do 
Begin 

Delay(iO); (This delay is correct -for the PC or XT, 
it may have to be changed -for an AT or 
■faster box} 

J : =J+1 ; 

If J =100 then 
Begi n 

T i me: =T i me+1 ; 

GotoXY (12,65 ; 

ClrEol ; 

Wr i t e ( Ti me , " Seconds ' ) ; 

J: =0; 

End ; 

End : 

I J KeyPressed then 
Begin 

Ch := ReadKey: 

It KevPressed then 
Ch : = ReadKey: 

If Ch = Char (ESC) then 
Begin 

5: = ' Aborted ' ; 
quit := True; 

End 
el se 

S: = ' Cycl i ng ' ; 

(* Reprinted with extensive modifications from Advanced Techniques in 
Turbo Pascal by Charles Edwards, by permission of Sybex , Inc. 
Copyright 19S7 Syoex , Inc. Ail rights reserved. 
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Continue Edwards Excerpt ********************) 



DataCom. Send_Str i ng (Char (Ch ) ) ; 

Del ay (2000) ; 

If RS232_ Avail then Flush_Buf f er; 

End 
el se 

Begin 

q. = ' ' . 

Repeat Ch := RS232_In until Ch = Char(LF); 

Repeat Begin 

Ch := RS232_In; 

If Ch > Char (US) then 
S: =S+Ch ; 

End 

until Ch = Char(LF); 

End ; 

Got oXV (12,3) ; 

ClrEol ; 

Wr i t e ( S > ; 

If not Connected then Delay (5000); 

End 

Until Connected OR quit; 

For Count :=1 to 10 do Beep (500); 

If Close_Window then; 

End 

else 

DataCom, Send_Stri ng (Phone_F’ref ix+F‘hone_Stuf f ""C I ] , Phone_Number+ 

Char (CR) ) ; 

{$R+} 

End: {of Dial_Phone> 

Procedure Dial ino_Di rectory; 

{This procedure allows the user to dial or modify any of the entries i 
the phone array} 

Var I ,3: integer; 



Function Get_Dial: Integer; 

Begin 

I f 0pen_Wi ndow (24 , 5,56 , Mi n (6+F'hone_Menu A . Length ,17) , FI ag_Borders 
'Phone List') = 0 then; 

6et_Bial : =Process_Wi ndow_Menu (Phone_Menu'‘) ; 

If Cl cse_Wi ndow then; 

End; {of Get_Dial> 



(* Reprinted with extensive modifications from Advanced Techniques in 
Turbo Pascal by Charles Edwards, by permission of Sybex , Inc. 
Copyright 1987 Sybex, Inc. All ^ights reserved. 
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(******************** Continue Edwards Excerpt ********************) 
Begin 

If Open_Window (36 , 5 , 44 , 1 1 , FI ag_Borders , 'Choi ce ' ) = 0 then; 

I : =F'rocess_Wi ndow_Menu (Di al _Menu) ; 

If Close_Window then; 

Case I of 

0: ; {ESC... No Choice) 

1,2: Begin {Dial or Demon Dial} 

J : =Get_Di al ; 

If J > 0 then 

Dial _F‘hone ( J , 1=2) ; 

End; 

3: Begin {Modify} 

I : =Get_Di al ; 

If I > 0 then 

Modi f y_Entry ( I ) ; 

End ; 

4: Begin {Delete} 

If Phone_Menu"' - . Length = 1 then 
Begin 

If 0pen_Window(45,9,67, 12,Flag_Borders, ' ' ) = 0 then; 
ClrScr ; 

Wri te ( 'Cannot delete last entry'); 

OK ( " ) ; 

If Close_Window then; 

End 
el se 

Begin 

I : =Get_Di al ; 

If I > 0 then 
Begin 

01 d_Phone_Menu: =Phone_Menu; 

01 d_Phone_Stuf f : =Phone_Btuf f ; 

J : =Phone_Menu'\ Length ; 

GetMem (Phone_Stuf f , ( J-l ) *Si zeof (Phone_Params) ) : 

GetMem (Phone_Menu, (J-l)*Sizeof (Phone_Name) +2) ; 

Move (01d_Phone_Menu' v , Phone_Menu"' , ( 1-1 ) * 

Si zeof (Phcne_Name) +2) ; 

Move (01 d_Phone_Stuf f Phone_Stuf f , (I-D* 

Si zeof (Phone_F'arams) ) ; 

If I < J then 
Begin 

Move (01 d_F'hone_Menu."". Names C 1 + 1 ] , 

Phone_Menu". Names C I ] , 

(J-I ) *Sizeof (Phone_Name) ) ; 

(+ Reprinted with extensive modifications from Advanced Techniques in 
Turbo Pascal by Charles Edwards, by permission of Svbex, Inc. 
Copyright 1?S7 Sybex , Inc. All rights reserved. 
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( ******************** Continue Edwards Excerpt ********************) 

hove (01 d_F'hone_Stuf f '"[ 1 + 1 3 , F'hone_Stuf f ''•C 1 3 , 

(J-I ) *Sizeof (F'hone_F'arams) ) ; 

End; 

F , hone_Menu / \ Length: =J-1 ; 

Freehem(01d_Phone_henu,J*Sizeof (F'hone_Name) +2) ; 

FreeMem (01 d_F‘hone_Stuf f , J*Si zeo-f (Phone_F'arams) ) ; 
Save_Fi le (False) ; 

End; 

End ; 

End ; 

5: Begin {Add} 

{JR-} 

01 d_F'hone_henu.: =Phone_henu; 

01 d_F‘hone_Stu-f f : =F'hone_StuiF -f ; 

GetMem (F'hone_Stuf -f , (F‘hone_Menu' % . Length+1 ) * 

Sizeof (F'hone_Params) ) ; 

Gethem (Phone_Menu, (Phone_Menu A . Length+1 ) * 

Si zeo-f (F‘hone_Name) +2) ; 

1 : =01 d_Phone_Menu A . Length ; 

hove (01d_Phone_henu/-,Phone_Menu'% I*Sizeof (Phone_Name) +2) ; 
Move (01d_Phone_Stu-f-f F'hone_Stu-f-f A , I*Si zeof (Phone_F‘arams) ) : 

I s =1 + 1 5 

F'hone_Menu - \ Length : =1 ; 

Phone_henu'\ NamesC 1 3 : = ' . . . To be provided... 

Move (Bef aul ts. Be-f au.lt _F'hone , F'hone_Stuf f I 3 , 

Si zeo-f (F"none_F’araiT!5) ) ; 

Modi -f y_En try ( I ) ; 

FreeMem (01 d_F‘hone_Menu , (I-l)*Sizeof (F’hone_Name) +2) ; 

FreeMem (01 d_Phone_Stuf f , ( 1-1 ) *Si zeo-f (F'hone_Params) ) : 

C$F,+} 

End; 

End; {of Case} 

End; -Cof Bi al i ng_Bi rectory} 

Procedure Dirs; 

{ Replacement directory } 

CONST 

Start : integer = 5; 

Finish : integer = 20; 



<* Reprinted with extensive modifications from Advanced Techniques in 
Turbo Pascal by Charles Edwards, by permission of Sybex, Inc. 
Copyright 1987 Sybex, Inc. All rights reserved. 
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(******************** Continue Edwards Excerpt 



********************) 



VAR 

error : integer; 

Dirlnfo : Dos. SearchRec ; 

S, 

Mask , 

Option : string; 

Directory_f ound ; Boolean; 

FromLine : integer; 

Ch : Char; 

Begin 

GetDir (0,S) ; 

If Open_Wi ndow ( 1 , Start , 80, Fi ni sh ,F1 ag_Borders , S) = 0 then; 

Cl rScr ; 

IF Qpen_Window ( 5, Start + 5, 70, Start + 7, FI ag_Borders , 

'Mask? *.* is default' ) = 0 THEN; 

GotoXY ( 1,1 ); 

Readln ( Mask ); 

IF Length (Mask ) = 0 THEN Mask := 

If Close_Window then; 

Cl rScr; 

IF Qpe.o_Window ( 5, Start + 5, 70, Start + 7, FI ag_Borders , 

'Options?' ) = 0 THEN; 

GotoXY ( 1,1 ); 

Write ('[ none = dir (Mask), ''w'' = dir (Mask) /w ] '); 

Readln ( Option ); 

If Close_Window then; 

Ci rScr ; 

IF Length ( Option ) = 0 THEN BEGIN 
GotoXY ( 1,1 ); 

ShowBir ( Mask, 1, 13, error ); 

END 

ELSE CASE Option! 1 3 of 
' w ' , ' W ' : BEG I N 

GotoXY ( 1,1 ); 

ViewDir (Mask, 1, 13 ) ; 

END; 

END; -CCASEl 
GotoXY ( 1, 13 ); 

Write ( 'Finished. .. Press any key'); 

Ch ;= ReadKey; 

If KeyPressed then Ch := ReadKey; 

If Clcse_Window then; 

End; Cof DirsI 

(* Reprinted with extensive modifications from Advanced Techniques in 
Turbo Pascal by Charles Edwards, by permission of Sybex , Inc. 
Copyright 1987 Sybex, Inc. All rights reserved. 
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(******************** Continue Edwards Excerpt ********************) 



Procedure Change_DC_Parameters; 

{This procedure allows the user to choose -from a list o-f speed, 
parity, word length, and stop bit con-f igurations) 

Var I: Integer; 

Begin 

It Dpen_Window (67, 1 ,79,23,Flag_Borders, 'Baud-P-L-S ' ) = 0 then; 
ClrScr; 

I : =Process_Wi ndow_Menu. (Communi cati ons_Menu) ; 

I-f I > 0 then 



Begin 

RS_Cleanup; 

With Commu.nications_Stu{{ C I ] do 
Begin 

RS_ Ini ti al ize (Current_Com, Speed , Parity , Stop , Length) ; 
End ; 

End ; 



I-f Close_Window then; 

End; -Cot Change_DC_F’arameters) 



Procedure Hangup; 

{This procedure hangs up the Hayes compatible modem) 

Var Ch:Char; 

Begin 

Repeat Begin 

While RS232_Avai 1 do Ch := RS232_In; 

Del ay (500) ; 

End 

Until not RS232_Ava.il; 

DataCom. Send_Str i ng ( ' +++ ' ) ; 

Del ay (2500) ; 

DataCom. Send_Str i ng ( ' ATHO ' +Char (CR) ) ; 

Del ay (1000) ; 

While RS232_Avai 1 do Ch := RS232_In: 

End; Cot Hangup) 

Procedure Dos_Shel 1 ; 

{This procedure opens a window and spawns a DOS command processor) 
Var Prog 5 Param , Di r : String ; 

I : Integer ; 



(* Reprinted with extensive modi t i cati ons trom Advanced Techniques in 
Turbo Pascal by Charles Edwards, by permission ot Sybex . Inc. 
Copyright 19B7 Sybex, Inc. All rights reserved, 
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Begin 

Prog : =Fi nd_Envi ronment ( ' COMSPEC ' ) ; 

I-f Length (Prog) <> 0 then BEGIN 
Param:=' '; 

If 0pen_Window(40,5,60,8,Flag_Borders, 'DOS' ) = 0 then; 

ClrScr ; 

Wri tel n ( ' Openi ng Dos Shell'); 

Write ('Use EXIT when done'); 

OK ( " ) ; 

I-f Close_Window then; 

I-f Open_Wi ndow ( 1 , 1 ,80,25,0, '' ) = 0 then; 

ClrScr; 

GetDir (0,Dir) ; 

Exec (Prog, Param) ; 

System. ChDi r (Dir ) ; 

i-f doserror <> 0 THEN BEGIN 

I-f Open_Window (40, 1 ,75,3,Flag_Borders, 'DOS Error ' ) = 0 then; 

Cl rEoi ; 

Wri tel n (Error_Code[BosError ] ) ; 

Delay ( 2000 ); 

I-f Cl ose_Wi ndow then; 

END; 

I-f Close_W:ndow then; 

END 

ELSE BEGIN 

I-f Qpen_Window(35, 10,75, 13, Flag_Borders, 'Error ' ) = 0 then; 

CirEol ; 

Writeln(' Unable to open DOS shell'); 

Wnte(' ''COMSPEC'' not -found in environment'); 

OK < " ) ; 

If Close_Window then; 

END ; 

End; (of Dos_Shel 13- 

(* Reprinted with extensive modifications from Advanced Techniques in 
Turbo Pascal by Charles Edwards, by permission of Sybex , Inc. 
Copyright IPS? Sybex, Inc. All rights reserved. 
*********************- End Edwards Excerpt ********************) 

FUNCTION Operator_i nput ( Title : Wi ndow_ti tl e; 

Prompt : PathString ) : PathString; 

VAR Response : PathString; 

BEG I N 

IF Ooen_Window ( 5, 10, 75, 13, Fiag_Borders, Title ) = 0 THEN 
BEGIN 
ClrScr; 



280 



Write! n ( Prompt ); 

Readln ( Response ); 

Operator_Input := Response; 

IF Close_Window THEN; 

END 

ELBE Operator_Input ;= 

END; 

PROCEDURE Operator_message ( Title : Window_title; 

Message : PathString ); 



BEGIN 

IF Open_Window ( 40, 10, 80, 13, FI ag_Borders , Title ) = 0 THEN BEGIN 
ClrScr; 

Writeln ( Message ); 

END 

END; 



FUNCTION Process_cammand : result; 

CONST Receive : boolean = FALSE; 
Transmit : boolean = TRUE; 



index : byte; 

Response : String 128; 
Restype : Response_type; 
Error_msg : Stringl28; 
Errtype : Response_type; 
Prompt ; String 128; 
but : buffer; 
send ; boolean; 

Server _ ID : byte; 
status ; result; 

Ch : char; 
finished : bool ean ; 
debugging : boolean; 



BEGIN 

debugging := FALSE; 
finished := FALSE; 

IF Open_Window ( 1, 1, 80, 7, FI ag_Borders , 'Remote Server') = 0 THEN; 
Cl rScr ; 

Server_ID := Acti ve_Wi ndow". ID; 

For index := 1 TO 4 do BEGIN 
GctoXY ( 1, index ); 

CASE index 0^ 

1 ; Write ('Server Version 1.0'); 

2 ; Write ('Function : Initializing'); 

3 : Write ('Status : Awaiting Command'); 
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4 : Write ('Command : '); 

END; C CASE > 

END; 

Send := FALSE; 

Redirection := true; 

•CSend_stri ng ('xmodem st test.tst');} 

IF Get_Window ( Server_ID ) THEN; 

GOTOXY ( 12, 2 ); 

Write ('Getting Command'); 

REPEAT 

status := Command_Xfer ( Receive, but, 128 ); 

UNTIL ( status = Rx_done ) OR ( status = Rx_keypressed ) ; 

IF Get_Window ( Server_ID ) THEN; 

Process_command := status; 

IF ( status = Rx_keypressed ) AND NOT ( debugging ) THEN BEGIN 
IF Close_window THEN; 

WHILE keypressed DO 
Ch := read key; 

EXIT; 

END; 

GOTOXY ( 12, 2 ); 

Wr i te ( ' Parsing Command ' ) ; 

GOTOXY ( 12, 3 ); 

Write ('Executing Command '); 

GOTOXY ( 12, 4 ) ; 

IF debugging THEN 

Stri ng_to_buf ( Operator_Input ( 'Command', 'server command?'), 

but ) ; 

Write ( but _to_str i ng ( but ) ); 

Parser_main( bu.t_to_string ( but), Response, Restype, 

Error_msg, Errtype, Prompt ); 

CASE Errtype OF 

strng : BEGIN 

IF Length ( E^ror_msg ) > 0 THEN BEGIN 
str i ng_to_buf ( Error_msg, but ); 

REPEAT 

status := Command_Xter ( Transmit, but, 128 ); 
UNTIL ( status = Tx_done ) 

OR ( status = Tx_keypressed ) 

OR ( status = Tx_CAN ) ; 

Process_command := status; 

CASE status OF 
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Tx_keypressed 



BEGIN 

IF Close_window THEN; 
WHILE keypressed DO 
Ch := readkey; 
•finished := TRUE; 
EXIT; 

END; 



T>: CAN 



END; 

END; 

END: 



{CASE} 

{IF} 



BEGIN 

•finished := TRUE; 
END; 



■f 1 1 e_type 



BEGIN 

status 

END: 



= Xmodm, Respond_by_-f i 1 e ( Error_msg ); 



noth: no 



; BEGIN 
END; 



END; {CASE} 



IF NOT (( finished ) OR ( status = Tx CAN )) THEN 



CASE Restype OF 



strng 



BEGIN 

string_to_buf ( Response, but ); 

REPEAT 

status := Command_Xf er ( Transmit, but, 128 ) 
UNTIL ( status = Tx_done ) 

OR ( status = Tx_keypressed ) 

OR ( status = T x _CAN ) ; 

Process_command ;= status; 

CASE status OF 



_keypressed 



BEGIN 

IF Close_window THEN; 
WHILE keypressed DO 
Ch := readkey; 
•finished : = TRUE; 
EXIT; 

END; 



Tx CAN 



END: 



END ; 



BEGIN 

■finished ;= TRUE; 
END; 



OOT 



{CASE} 



file_type : BEGIN 

status := Xmodm. Respond_by_f i le ( Response ); 
END; 



nothing : BEGIN 
END; 



END; C CASE } 

IF NOT -finished THEN BEGIN 

IF Get_Window ( Server_ID ) THEN; 

GOTOXY ( 12, 2 ); 

Write ('Forwarding Prompt'); 

GOTOXY ( 12, 3 ); 

Write ('Command Complete'); 

GOTOXY (1,4); 

Write ('Prompt : ); 

GOTOXY ( 1 , 11 ) ; 

Write ( Prompt ); 

string_to_buf ( "M + Prompt, buf ); 

REPEAT 

status := Comma.nd_X-f er ( Transmit, bu.f, 128 ); 

UNTIL ( status = Tx_done ) 

OR ( status = Tx_keypressed ) 

OR ( status = Tx_CAN >; 

Send_CAN; 

WHILE keypressed DO 
Ch := readkey; 

Process_command := status; 

IF Get_Window ( Server_ID ) THEN; 

END; 

IF Close_window THEN; 

END; 

(*********************** Start Edwards Excerpt ********************) 
C 1 Sep 8? global variables eliminated > 

CONST Comms_Nenu : integer = 9; 

Comms_Fns ; ARRAY [1..93 OF STRING C 24 3 = ( 

'Initialize port ' , 

'Connect to current port ', 

'Disconnect current port ', 

'ZCOPY file to remote ', 

'ZCOF'Y file from remote ', 



(* Reprinted with extensive modifications from Advanced Techniques in. 
Turbo Pascal by Charles Edwards, by permission of Sybex , Inc. 
Copyright 1987 Sybex, Inc. All rights reserved. 
********************* Continue Edwards Excerpt ********************) 
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(******************** Continue Edwards Excerpt ********************) 

'Set machine status 
'Login to remote machine ', 

'Reset remote server ', 

'(ESC) Exit '); 

Comms_Stat_Menu. : integer = 7; 

Comms_Stat : ARRAY C 1..7 3 OF STRING C 16 3 = ( 

'Comm Port ', 

' Speed ' , 

'Word Length ', 

' Par i ty ' , 

'Stop Bits ' , 

'Function ', 

'Status ' ) ; 



FUNCTION Comms_f uncti on : result; 

CONST Receive : boolean = FALSE; 
Transmit : boolean = TRUE; 



VAR 

I, 

Server_ID, 

Save_Wi ndow , 

Status_Wi ndow , 

Remote_Wi ndow , 

Functi on_Wi ndow : Byte; 

Verbose ; boolean; 
quit : boolean; 

List : Equi pmentLi stType; 

Procedure Update_Statu.s ( Fn , Status : string ); 
VAR J : Integer; 



BEGIN 

H 6et_Wi ndow ( Status_Wi ndow ) THEN; 

FOR J := 1 to Comms_Stat_Menu BO BEGIN 
GoToXY ( 18, J ); 

ClrEOL; 

WITH Comport [ Current_COM ] DO 
CASE J OF 

1 : Write ( Current_COM ); 

2 : Write ( Speed_MsgCORD ( Speed ) + 1 3); 

(* Reprinted with extensive modifications -from Advanced Techniques in 
Turbo Pascal by Charles Edwards, by permission o-f Sybex , Inc. 
Copyright 1837 Sybex, Inc. All rights reserved. 
********************* Continue Edwards Excerpt ********************) 
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(******************** Continue Edwards Excerpt ********************) 



3 : Write ( Length_MsgC Length-4] ); 

4 : Write ( Pari ty_Msg CMi n (ORD ( Parity )+l, 3)]); 

5 : Write ( Stop_MsgC Stop +1] ); 

6 : Write ( Fn ); 

7 : Write ( Status ); 

END; { CASE > 

END; 

IF Get_Window ( Functi on_Wi ndow ) THEN; 

END; C Update Status > 

Procedure Reset_remote; 

{ This procedure forces the remote server to return to the 
command receive mode} 

BEGIN 

Update_Statu.s ( 'Resetting', 'Please wait. . . ' 

Xmodm. Send_CAN; 
delay (500); 

Xmodm. Send_CAN; 
delay (500); 

Xmodm. Send_CAN; 
delay (500); 

Xmodm. Send_CAN; 
delay (500); 

END; 

Function Remote_Command ( Command : String 128 ) : boolean; 

VAR Ch ; char; 

status : result; 
buf : buffer; 

Function stop_ca.se ( status : result ) : boolean; 

BEGIN 

stop_ca.se ;= ( status 
OR ( status 
•COR ( status 

END; 

BEGIN 

IF Verbose THEN Writeln ('sending command'); 
stri ng_to_bu.f ( Command , buf ); 



= Rx_keypressed ) 
= Rx_CAN ); 

= F:x_done);} 



(* Reprinted with extensive modi f i ca.ti ons from Advanced Techniques in 
Turbo Pascal by Charles Edwards, by permission of Sybex , Inc. 
Copyright 1987 Sybex, Inc. All rights reserved. 
****#**+**#*-^H(-****'fr+'* Continue Edwards Excerpt •^•^**#***#^*^********) 
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(******************** Continue Edwards Excerpt ********************) 



REPEAT 

status := Command_Xfer ( Transmit, bu-f , 123 ); 

UNTIL ( status = Tx_done ) OR ( status = Tx_keypressed ); 

CASE status OF 
Tx_CAN, 

Tx_keypressed : BEGIN 

Update_Status ( 'Aborted'); 

IF Get_Window ( Remote_Wi ndow ) THEN; 

WHILE keypressed DO 
Ch := readkey; 

Remote_Command := FALSE; 

END; 

Tx_done : BEGIN 

Xmodm. Moni tor_transf ers := FALSE; 

IF Verbose THEN Writeln ('Getting response' ); 
REPEAT 

status : = Get_Response ( 128 ); 

UNTIL stop_case ( status); 

CASE status OF 

Rx_keypressed ; 

B rnti » 

Write-in 

('Aborted by user waiting -for response'); 
delay (1000); 

WHILE Keypressed DO 

Ch ;= readkey; C clear the keypress } 
RemotejCommand := FALSE; 

END; 

Rx_done , 

Rx_CAN : 

BEGIN { normally the signal to turn 
the link around -for the next 
command } 

Remote_Command := TRUE; 

END; 

END; C CASE > 

END; 

END; C CASE > 

END; •( Remote Command > 



(* Reprinted with extensive modifications -from Advanced Techniques in 
Turbo Pascal by Charles Edwards, by permission of Sybex , Inc. 
Copyright 1987 Sybex, Inc. All rights reserved. 
********************* Continue Edwards Excerpt ********************) 
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(******************** Continue Edwards Excerpt ********************) 



Procedure Rlogin; 

VAR quit : boolean; 

Command : Stringl28; 
bu-f : buffer; 

BEGIN 

quit := FALSE; 

Update_Status ( 'Login to remote', '' ); 

IF Open_Window (1, 1, 80, 23, FI ag_Borders , 

'Remote system - ESC terminates') = 0 THEN; 

Cl rScr ; 

Remote_Wi ndow := Active_Window'\ ID; 

IF Verbose THEN Writeln ('synchronizing'); 

Wri tel n ( 'Trying . . . ' ) ; 

Command := 'Prompt'; 

REPEAT 

IF NOT ( Remote_Command ( Command ) ) THEN BEGIN 
Writeln ('Command failed'); 
quit := TRUE; 

END 

ELSE BEGIN 

Command := Operator_input ( 'Command C" !<CR>" to quit]', 

'Command to send to remote ' ); 

IF (Pos ( ' ! ' , Command ) <> 0) THEN REPEAT 

Command := Operator_i nput ( 'Quit', 'Quit? [n, y] '); 
quit := (Command = 'Y') OR (Command = 'y') 

OR ( Command = ' ' ) ; 

UNTIL (quit OR NOT (Command = 'n') OR NOT (Command = 'N')); 
END; 

UNTIL quit; 

Xnodm. Mom tor_transf ers := TRUE; 

IF 6et_Window ( Remote_Wi ndow ) THEN; 

IF Ciose_Window THEN; C Close the Remote Window } 

END; { Rlogin > 

Procedure Rx_File; 

CONST Curnt_C0M : String C 5 ] = 'CONI'; 

VAR Dir : Pathstring; 

Command : String 128; 
status : result; 
quit : boolean; 

(* Reprinted with extensive modifications from Advanced Techniques in 
Turbo Pascal by Charles Edwards, by permission of Sybex , Inc. 
Copyright 1987 Sybex, Inc. All rights reserved. 
*************•£•**•*••*■#■*# Continue Edwards Excerpt ******#**#***■*#■**#*••*) 
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(******************** Continue Edwards Excerpt ********************) 

Ch : Char; 

Settings : byte; 
but : butter; 



BEGIN 

quit := talse; 

Update_Status ( 'Receive File', '' ); 

{ Open message window } 

IF Open_Window ( 1, 12, 80, 20, FI ag_Borders , 

'Receive File Monitor - press any key to abort ' ) = 0 THEN; 

Cl rScr ; 

Remote_Wi ndow := Acti ve_Window'\ ID; 

Command := 0perator_i nput ( 'File to Receive', 

'Full Path at remote?'); 

Writeln ('Trying . . •'); 

str i ng_to_but ( 'zcopy ' + Command + ' ' + Curnt_C0M, but ); 

IF Verbose THEN Writeln ('sending command'); 

REPEAT 

status := Command_XTer ( Transmit, but, 128 ); 

UNTIL ( status = Tx_done ) OR ( status = Tx_keypressed ); 

WHILE Keypressed DO 
Ch : = Read key; 

IF status <> Tx_done then BEGIN 

Writeln ('Aborted by user on send'); 
delay (1000); 
quit i= true; 

END 

ELSE BEGIN 

IF Dpen_Wi ndow ( 1, 1, 80, 25, 0, ") =0 THEN BEGIN 
Cl rScr ; 

GetDir ( 0, Dir ); 

Exec ( 'zcopy.com', ' ' + Curnt_CQM ); 

RS_C1 eanup ; 

RS_Restore ( Current_COM ) ; 

IF Cl o=e_Wi ndow THEN; 

IF DosError <> 0 THEN BEGIN 

Writeln ('DOS Error ', Error_Code [ DOSERROR 3 ); 

Delay (2000); 

END; 

System. ChDir ( Dir ); 

END; 

(* Reprinted with extensive modi t i cati ons trom Advanced Techniques in 
Turbo Pascal by Charles Edwards, by permission ot Sybex , Inc. 
Copyright 1987 Sybex, Inc. All rights reserved. 
+**+**♦*********■*■*•*■** Continue Edwards Excerpt ♦**++**■•*****■►•****+*■*) 
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(******************** Continue Edwards Excerpt ********************) 



IF Verbose THEN Writeln ('Betting response' ); 
REPEAT 

status := 6et_Response ( 128 ); 

UNTIL ( status = Rx_keypressed ) 

□R ( status = Rx_CAN ) ; 

IF status = Rx_keypressed THEN BEGIN 

Writeln ('Aborted by user waiting -for response'); 
delay (1000); 
quit := true; 

END; 

Xmodm. Moni tor_transf ers := TRUE; 

END; 

•C Close message window } 

IF Close_Window THEN; 

END; { Rx_Fi 1 e } 

Procedure Tx_File; 

CONST Curnt_CQM : String [53= 'CONI'; 

VAR Dir : Pathstring; 
quit : boolean; 

Command ; String 128; 

Ch : Char; 
but" : buffer; 
status : result; 



BEGIN 

quit := false; 

Update_Status ( 'Transmit File', '* ); 

•C Open message window } 

IF Open_Window ( 1, 12, 80, 20, FI ag_Borders , 

'Transmit File Monitor - press any key to abort') = 0 THEN; 
ClrScr; 

Remote_Wi ndow := Acti ve_Window'\ ID; 

Command := Operator_i nput ( 'File to Transmit', 

'Full Path (local)? '); 

Writeln ('Trying . . .'); 

str i ng_to_buf ( 'zcopy ' + Curnt_C0M, buf ); 

(* Reprinted with extensive modif ications from Advanced Techniques in 
Turbo Pascal by Charles Edwards, by permission of Sybex , Inc. 
Copyright 1987 Sybex, Inc. All rights reserved. 
+******************** Continue Edwards Excerpt ********************) 
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(******************** Continue Edwards Excerpt ********************) 

IF Verbose THEN Writeln ('sending command'); 

REPEAT 

status := Command_Xfer ( Transmit, buf , 128 ); 

UNTIL ( status = Tx_done ) OR ( status = Tx_keypressed ); 

WHILE Keypressed DO 
Ch := Read key; 

IF status <> Tx_done then BEGIN 

Writeln ('Aborted by user on send'); 
delay (1000); 
quit := true; 

END 

ELSE BEGIN 

IF Qpen_Wi ndow ( 1, 1, 80, 25, 0, ") =0 THEN BEGIN 
ClrScr ; 

GetDir ( 0, Dir ); 

Exec ( 'zcopy.com ', ' ' + Command + ' ' + Curnt_COM ); 

RS_C1 eanup ; 

RS_Restore ( Current_CQM ) ; 

IF Ci ose_Wi ndow THEN; 

IF DosError O 0 THEN BEGIN 

Writeln ('DOS Error ', Error_Code [ DOSERROR D ); 

Delay (2000); 

END; 

System. ChDir ( Dir ); 

END; 

IF Verbose THEN Writeln ('Getting response' ); 

REPEAT 

status := Get_Response ( 128 ); 

UNTIL ( status = Rx_keypressed ) 

OR ( status = Rx_CAN ); 

IF status = Rx_keypressed THEN BEGIN 

Writeln ('Aborted by user waiting -for response'); 
delay (1000); 
quit := true; 

END; 

Xmodm. Moni tor_transf ers := TRUE: 

{IF Cl ose_Wi ndow THEN; } 

END; 

•C Close message window } 

IF Cl ose_Wi ndow THEN; 

END; { Tx_Fi 1 e > 

(* Reprinted with extensive modifications from Advanced Techniques in 
Turbo Pascal by Charles Edwards, by permission of Sybex , Inc. 
Copyright 1987 Sybex, Inc. All rights reserved. 
********************* Continue Edwards Excerpt ********************) 
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(******************** Continue Edwards Excerpt ********************) 



Procedure Get_Equ.ip; 

VAR Command : string 128; 
buf : buffer; 

BEGIN 

Upda.te_Status ( 'Getting remote equipment', '* ); 

IF Open_Window (1,1, 80, 23, Flag_Borders, 

'Remote system - ESC terminates') = 0 THEN; 

Cl rScr ; 

Remote_Wi ndow := Acti ve_Wi ndow A . ID; 

IF Verbose THEN Writeln ('synchronizing'); 

Writeln ('Trying . . .'); 

Command := 'Equip'; 

stri ng_to_bu.f ( Command , bu-f ); 

IF ( Remote_Command ( Command ) ) THEN; 

Xmodm. Moni tor_transf ers := TRUE; 

IF Cl ose_Wi ndow THEN; 

END; C Get_Equip > 



BEGIN 

Verbose := TRUE; 

IF Open_Window (1,2, 80, Comms_Stat_Menu + 3, FI ag_Borders , 

'Current Port' ) = 0 THEN; 

Status_Window ; = Acti ve_Wi ndow - " -- . ID; 

ClrScr; 

FOR I := 1 TO Comms_Stat_Menu DO BEGIN 
GoToXY ( 1, I); 

Write ( Comms_Stat [ I ], ':'); 

END; 

IF Qpen_Window ( 41, 2, 75, Comms_Menu + 3, FI ag_Borders , 

'Functions') = 0 THEN BEGIN 
Fu.ncti on_Wi ndow ; = Acti ve_Window'\ ID; 

ClrScr ; 

Update_Sta.tus ( ' ' , ' ' ) ; 

END 

ELSE Writeln ( 'Can "t ' ) ; 

REPEAT 

I := Process_Wi ndow_Nenu ( Comms_Nenu ); 
quit := false; 

CASE I OF 



(* Reprinted with extensive modifications from Advanced Techniques in 
Turbo Pascal by Charles Edwards, by permission of Sybex , Inc. 
Copyright 1987 Sybex, Inc. All rights reserved. 
********************* Continue Edwards Excerpt ********************) 



(******************** Continue Edwards Excerpt ********************) 



0 : ; { ESC - do nothing } 

1 : BEGIN {Initialize port } 

Update_Status ( ' Intial izing ' , 

'Select new parameters ' ); 
Change_DC_Parameters; 

Save_Window ;= Acti ve_Wi ndow'’. ID; 

RS_C1 eanup; 

WITH Comport C Current_COM ] DO 

RS_Initial ize ( Current_COM, Speed, Parity, 

Stop, Length ); 

Update_Status ( 'Completed',''); 

IF Get_Window ( Save_Window ) THEN; 

END; 



BEGIN {Connect to port > 

If Open_Window (40, 15,47, 18 ,F1 ag_Borders , 'Port ' ) 
CirScr ; 

I:= Pr ocess_Wi ndow_Menu (Comm_Menu) ; 

IF I IN CComl . . Com23 THEN BEGIN 
Current_C0M := I; 

RS_C1 eanup; 

WITH Comport [ Current_C0M ] DO 

RS_Initial ize ( Current_C0M, Speed, Parity, 

Length ) ; 

If Close_Window then; 

Update_Status ( 'Connecting', '' ); 

END 



ELSE 

Update_Statu.s ( 'Can''t', 'Port out of range' 

END; 



= 0 then; 



Stop , 



3 : BEGIN {Disconnect current port 1 

Upda.te_Sta.tus ( 'Disconnecting', *' ); 
RS_C1 eanup; 

{ Disable those interrupts > 

END; 



4 : BEGIN {Put file to remote 1 

Update_Status ( 'Putting File', '' ); 
Tx_Fi 1 e; 

END; 



(* Reprinted with extensive modifications from Advanced Techniques in 
Turbo Pascal by Charles Edwards, by permission of Sybex , Inc. 
Copyright 1987 Sybex, Inc. All rights reserved. 
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(******************** Continue Edwards Excerpt ********************) 



5 : BEGIN {Get file from remote > 

Update_Status ( 'Getting File', '' ); 

Rx_Fi 1 e; 

END;" 

6 : BEGIN {Get machine status } 

Get_Equip; 

END; 

7 : BEGIN {Login to remote machine } 

Rlogin; 

END; 

8 : BEGIN {Reset remote machine } 

Reset_remote; 

Update_Status ( 'Reset', '' ); 

END; 

9 : BEGIN {(ESC) Exit > 

I : = 0; 

END; 

END; {CASE} 

UNTIL (I = 0) or (quit); 

IF Close_Window THEN; 

IF Close_Window THEN; 

Comms_Functi on := Tx_done; 

END; { Comms_Functi on } 

Procedure Handle_ftlt_Key (B: Byte) ; 

{This procedure handles the ALT-Key combinations. 

Input: B - the high order byte returned from Check_Keyboard 

h. 

Var I : Integer ; 

S; Long_String; 
status : result; 

Beg i n 
Case B of 

Alt_A: Begin {Drive and path} 

If 0pen_Window(10,3,50,7,Flag_Borders, 'Path ' ) = 0 then; 
ClrScr ; 

(* Reprinted with extensive modifications from Advanced Techniques in 
Turbo Pascal by Charles Edwards, by permission of Sybex , Inc. 
Copyright 1987 Sybex, Inc. All rights reserved. 
********************* Continue Edwards Excerpt ********************) 
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A1 t_B: 
A1 t_C: 
Alt_D: 
Alt_E; 

Alt_F; 
Alt_6: 
Alt H: 



A1 t_L: 

Alt_M : 

A1 t_P: 

Alt_R, 
PgDn : 



Writeln ( 'Enter new drive and path using -format:'); 
Writeln ( 'D: \Path\Path. . . ' ) ; 

Read In (S) ; 

If Length (S) > 0 then 
System. ChDi r (S) ; 

If Close_Window then; 

End; 

Begin {Break} 

RS_Break; 

End; 

Begin {Clear screen} 

Modi f y_Entry (0) ; 

End ; 

Begin {Dial} 

Di al i ng_Di rectory ; 

End; 

Begin {Echo} 

Beep (250) ; 

Echo:=not Echo; 

End; 

Begin {Data comm parameters} 

Change_DC_Parameters; 

End; 

Begin {Show disk directory} 

D i r s ; 

End; 

Begin {Hangup} 

Beep (250) ; 

Hangup ; 

End; 

Begin CDOS Shell} 

Dos_Shel 1 ; 

End ; 

Begin 

Status := Comms_Functi on; 

End ; 

Begi n 

Status := Comms_Functi on ; 

End ; 

Begin {Receive a file} 

If Asci i _Downl oad then 
Begin 

Close (Asci i _Fi le) ; 



(* Reprinted with extensive modifications from Advanced Techniques in 
Turbo Pascal by Charles Edwards, by permission of Sybex , Inc. 
Copyright 1987 Sybex, Inc. Ail rights reserved. 
******************** '*■* Continue Edwards Excerpt *******■***+***■*■**■*+■*■) 



(******************** Continue Edwards Excerpt ********************) 



Ascii _Downl oad : =Fal se; 

I-f 0pen_Window(35, 10,66, 13, Flag_Borders, '' ) = 0 then 
ClrScr ; 

Write ( 'Receipt o-f -file terminated'); 

OK ( " ) ; 

I-f Close_Window then; 

End 
el se 

Trans-f er_Fi 1 e (Fal se) ; 

End ; 

Alt_S: Begin {Activate Server} 

REPEAT 

Status := F'rocess_Command ; 

UNTIL ( status = Rx_keypressed ) OR 
( status = Tx_keypressed ) ; 

End ; 

Alt_T, 

PgUp : Begin {Transmit a -file} 

Trans-fer_Fi 1 e (True) ; 

End ; 

Alt_X: Begin {Exit} 

Beep (400) ; 

End_Emul ator : = TRUE; 

I-f End_Emulator and Asci i _Downl oad then 
Close(Ascii_File) ; 

End; 

Home; Begin {Help} 

I f 0pen_Wi ndow ( 1 , 1 , 29 , Min (20, Hel p_Menu+2) , FI ag_Borders , 

'Help')= 0 then; 

Cl rScr ; 

I : =F‘rocess_Wi ndow_Menu (Hel p_Menu) ; 

I-f Close_Window then; 

I-f I > 0 then 

Handl e_Ai t_Key (Hel p_Index C 1 1 ) ; 

End ; 

Else Begin 

Beep ( 1000) ; 

End; 

End; -Cor Case} 

Bui 1 d_Status_Line; 

End; -Cot Handl e_Alt_Key} 



(* Reprinted with extensive modi-f ications -from Advanced Techniques in 
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********************* Continue Edwards Excerpt ********************) 
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(******************** Continue Edwards Excerpt ********************) 



Procedure TTY (Ansi : Boolean) ; 

[This procedure provides basic teletype emulation. 

It suppresses NULs and converts GS into a non-destructive backspace 



Const Ansi_Init: Array CO.. 83 of Char = (#27 , ' C ' , '3 ' , '7 ' , ' ; ' 

'm', '$'); 

Col ors: Array CO.. 73 of Char = ( ' 0 ' , ' 4 ' , ' 2 ' , '6 ' , ' 1 ' , '5 
Var ChrChar; 

I : Integer; 

Regs: Registers; 



'4' 



9 



' 0 ' 



9 



i' , '7') ; 



Procedure WriteLF; 

Begin 

If not Ansi then 
Wri tel n 

else if WhereY >= 24 then 
Begin 

Regs. AX : =$0601 ; 

Regs. CX : =$0000; 

Regs. DX ; =$174F ; 

Regs. BH: =Background shl 4 + Foreground; 
Intr ($10, Dos. Registers (Regs) ) ; 

GotoXY (1,24) ; 

End 
el se 

Begin 

Regs. AH; =2; 

Regs. DL: =LF; 

MSDos (Dos. Registers (Regs) ) ; 

End; 

End: {of WriteLF} 



Procedure Writeit (ChiChar) ; 

Begin 

If Ansi then 
Beg i n 

Regs. AH: =2; 

Regs. DL: =Byte (Ch) ; 

MSDos (Dos. Registers (Regs) ) ; 

If WhereY > 24 then WriteLF; 

End 

else 

Write (Ch) ; 

End; Cof Writeit} 

(* Reprinted with extensive modifications from Advanced Techniques in 
Turbo Pascal by Charles Edwards, by permission of Sybex , Inc. 
Copyright 1987 Sybex, Inc. All rights reserved. 
********************* Continue Edwards Excerpt ********************) 
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(******************** Continue Edwards Excerpt ********************) 



Begin 

It Open_Window ( 1 , 1 ,80,24,0, ' ') = 0 then; {Save existing screen) 

Bui 1 d_Status_Li ne; 

If Ansi then Begin 
Regs. AH: =9; 

Regs. DS: =Seg (Ansi _ I nit) ; 

Regs. DX : =0f s ( Ansi_Ini t ) ; 

Ansi_InitC33: =Co 1 or sC For egr ound 3 ; 

Ansi _ Ini t [63 : =Col or s[ Background 3 ; 

MSBos (Dos. Regi sters (Regs) ) ; 

End ; 

Cl rScr ; 

Repeat Begin 

Ch: =Check_Auxport ; 

Case Byte(Ch) of 

NUL: ; [Throw it away) 

6S: Begin CNon-destructi ve backspace) 

If’whereX > 1 then 

GotoXY (WhereX-1 ,WhereY) 
else if WhereY > 1 then 
GotoXY (80, WhereY- 1 ) 
else 

GotoXY (80,24) ; 

End; 

LF: WriteLF; 

Else Begin 

Writeit (Ch) ; 

End ; 

End; Cof Case) 

I ; =Check_Keyboard; 

If I <> 0 then 

If Led) = 0 then 

Hanoi e_AIt_Key (Hi (I) ) 
el se 

Begin 

Ch: —Char (Lo ( I ) ) ; 

RS232_Qut (Ch) ; 

If Echo then 
Begin 

Wn tei t (Ch ) ; 

If Ch = Char (CR) then 
WriteLF; 

If Print then 
Begin 

(* Reprinted with extensive modifications from Advanced Techniques in 
Turbo Pascal by Charles Edwards, by permission of Sybex , Inc. 
Copyright 1987 Sybex, Inc. All rights reserved. 
+**************#****+ Continue Edwards Excerpt ***■**#*■#*+*#•*•■*•#•*•*•***) 



(******************** Continue Edwards Excerpt ********************) 

Write (LST,Ch) ; 

I-f Ch = Char (CR) then 
Wri te (LST , Char (LF) ) ; 

End; 

End; 

End; 

End 

Until End_Emul ator ; 

I-f Ansi then 
Begin 

Regs. AH: =9; 

Regs. BS: =Seg (Ansi_Init) ; 

Regs. DX : =0-f s ( Ansi _ Ini t ) ; 

Ansi _ Ini t C33 : =Col orsCLi ghtGray] ; 

Ansi _Ini t [61 : =Col orsCBl ack ] ; 

MSBos (Bos. Regi sters (Regs) ) ; 

End; 

I-f Close_Window then; 

End; -Cot TTY) 

{The outer block of Bistrib. It performs all necessary initialization 
and presents the user with a list of terminal emulators from which to 
sel ect) 



Var I; Integer; 

status : result; 
command_taii : string; 

Begin 

GetBir (0,Current_F'ath) ; (* save current directory for restoration *) 

Ini t_Wi ndow_Inf o; 

If Open_Wi ndow ( 1 , 1 ,80,25,0, '* ) = 0 then; 

Support . Initialize; 

IF ParamCount > 0 THEN BEGIN 
command_tai 1 ;= ParamStr (1 ); 

Bump St r Up ( command_tai 1 ); 

END; 

IF ( ( ParamCount > 0 ) ANB ( command_tail = 'SERVER') ) 

OR ( ParamCount = 0 ) THEN 

REPEAT 

status := F'rocess_command; 

UNTIL ( status = Tx_keypressed ) OR ( status = Rx_keypressed ) 



(* Reprinted with extensive modifications from Advanced Techniques in 
Turbo Pascal by Charles Edwards, by permission of Sybex , Inc. 
Copyright 1987 Sybex, Inc. All rights reserved. 
********************* Continue Edwards Excerpt ■*■+*+***+■***■+*:+****+■*■) 
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(******************** Continue Edwards Excerpt ********************) 



ELSE BEGIN C Master or maintenance -function 3- 
End_Emul ator : =Fal se; 

Emul ator : = 'ANSI ' ; 

TTY (True) ; 

END; 

Repeat 

until Close_Window; C Close out all windows > 

System. ChDir (Current_Path) ; <* restore the previous directory *) 

End . 



<* Reprinted with extensive modifications -from Advanced Techniques in 
Turbo Pascal by Charles Edwards, by permission of Sybex , Inc. 
Copyright 19S7 Sybex, Inc. All rights reserved. 
************************ End Edwards Excerpt ***********************) 



APPENDIX AB 



CONFIGURATION FILE STRUCTURE 



A. DISTRIB. CFG FILE STRUCTURE 



This is the data structure recorded in the DISTRIB. CFG -file when a 
con-figuration is saved. This structure can be accessed -from the 
Distrib program main menu by pressing the special key combination 
Alt-C, -for Update Con-fig File. 

1. Data Structure for the Default Configuration 



This is the data structure in the Support Unit that is 
recorded in variable Current of type Def aul t_Type. 



modify} 

port 



speed 



pari ty 



col or 



col o'- 

dialing prefi 



connection 



Const Defaults : Default_Type = 

(Def aul t_Name : ' DISTRIB. CFG ' ; The file name to 

Defa.ult_Com : 1; The default communications 

Def aul t_Modem : 2; The default modem port 



Def aul t_Phone 
Def aul t_Speed 


: '555-1 

; B9600 ; 


9 1 ^ . 

1 5 

The 


default comm 


port 


Def aul t_Pari ty 


: None; 


The 


default comm 


port 


Def aul t_Length 


: 8 ; 


The default comm port 




Def aul t_Stop 


: l ; 


The default comm port 





Def aul t_Echo: False; Enable Half Duplex 

Def ault_Te>;tcolor : LightGray; The default text 

Def aul t_Menucol or : Green ; The default menu color 
Def aul t_Backcolor: Black; The default background 

Def ault_F'ref ix : 'ATDT9, ,9, , ' ; The default modem 

Def aul t_Del ay : 30) ; The default delay to wait for 
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APPENDIX AC 



DOCUMENTATION FOR ZCOPY PROSRAM 



This is the documentation -for the Zcopy program used for file 
transfer (Flanders, 1989, pp. 251 - 282). 

ZCOPY.COM 

Command 

Bob Flanders 

1989 No. 4 (Utilities) 



Purpose: Transfers files at high speed, via a serial link, between 
machines that do not share a common disk format. 

Format: ZCOPY source [target! C/w3[/n3[/u3[/o3C/a3[/p3[/d3 

Remarks: The two machines must bs IBM-compatible and must be connected 
by a standard "null modem" cable. ZCOPY is executed, with appropriate 
parameters, on both machines; a 30-second (default) connect timeout is 
provided. 



On the sending machine both a. source (filename plus any needed 
drive and path) and a target (C0M1 or COM2) must be specified. ZCOPY 
supports the * and ? DOS filename "wildcards," but it does not permit 
renaming files during transfer. 

On the receiving machine the source is C0M1 or COM2, and the target, if 
specified, must be a directory path. (Any needed subdi rector i es must 
be created on the receiving machine before using ZCOPY.) 

The optional /w and ,/n switches operate before connection is 
established, and so are entered on the ZCOPY command line of each 
machine. The /w parameter prolongs the default connection timeout 
indefinitely; it can be cancelled with Ctrl -Break. The /n parameter 
sets the highest bit-per-second (bps) rate at which ZCOPY will attempt 
to transfer data. If used, it must be the same on both machines. The 
default is /I (115 kbps). Other acceptable values are /2 through /6 
(57.6 kbps, 38.4 kbps, 19.2 kbps, 9600 kbps, and 4800 kbps, 
respectively). If ZCOPY cannot maintain error-free transfer at a given 
transfer rate, it automatically steps down to the next lower speed. 

The other optional parameters may be entered on either machine's 
ZCOPY command line. The /u (Update) switch permits overwriting 
same-named files on the receiving machine without operator confirmation 



if the source file is more recent. The /o (Overwrite) switch 
suppresses the confirmation prompt for all files. By default, when 
ZCOF'Y receives a disk-full signal, before aborting it tries to find a 
smaller selected source file that will fit on the receiving disk. The 
/a (Abort on Full) aborts at the first disk-full indication. The /p 
(Pause) switch creates a pause before the transfer operation begins 
after the connection between machines has been made. 
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